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T T°n IZ fc;l&£ L Tf£o T fe 6 A. 
3 J: 7 ttBift*tt £ ftT I ^ 
r V7^C7)^JtC7)ct £^"7^ > K 
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Atz^7FLT<n§o ilfflS&TXfJE 
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^^i:7*a-LT5fo 

— 3 L x>v x /\V-y h^ 1 
x>v^b^I*7FM5t 




£91 # ffl ^ 7 x i&5 >^mm^£ 
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<rMo /\— K^xT<fc|SfH&E, «t 
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r? 



Dante(W-?z>0*IiraW3 



057WJI/;i*DantBX/fl-h 



-i"y ? £\ M v ^j'T'tH L tz RPG =1 
>7h7^'>3 >»y— JU r Dantej 

7=7-74 v?\zu>j<— fLTL 

fcn t-if^iL^- <7<> K- 

0)*^ "b (255, 144)<7)f5g]|±]Tlg 
<J:-5Co z<nwmFt*zm.^izlb 




UT^A^Yc^>b^o fLTfc? 
0-£ol2/\V>y K fidliLf: 
7°P^'vA(iA< S"Cfe^77-f 
•y^x-— ^L*>a>/\*— h LT< 
*l# I V fcffr f>^77<7^ 7 s — 
^^Dante^T-'-r ^^(Zzi>/n'— 
h L tz h t X\ / \V -y h ?rflf JE L 
Wfttftt ibfcl.M7)£f 8 Zl » \'— 
hTSiulZ, /\V-y h-T"'— ^^-p' 

^'^"7^ -y^^ffiS^^ofcbs 
7 f -f^Ct-7*U lafr-fu? 
7A?r^ibi±J:^o MSc7)^i7F(z 
^-7T^frrS^'(tT\ Dantetz 

K9BE91 



7D^t3AU7sS 



BV14gJrfPiT(l!qi 



tfc^^ilftl. 1 ! SCREEN 




10J0T OPEN" GRP : " FOROUTPUTAS# 1 : SCREENi) : W 1 DT 

H4jtr:COLOR15,0,^ 

110 PRINT" CO)*-7" -VI' " : PRINT" CEU^f' iVf 

":PRINT"Kf7 1 T/l\' -V Wdtf push CO] or 

CED = " ; :F$=INPUT$(1) : PRI NTF$ : PlilN 1 : 1 FFS 

=" 0" 0RF$=" E" GOTO120ELSE : G0T01 IB 

12B I FF$=" 0"THENF$ = " RTI TLE. B J N" liLSliF$=" E 

TITLE.BIN" 

130 INPUT" f "9 J 77-f^-A A f-fXii ";NM$: 

IFNM$=""GOTO130 

140 SCREEN5:SETPAGE, 1 :CLS : SETPAGE, 2 :CLS : 

SETPAGE0.0 

150 PRESET (0*8, 8*8) : PRI NT#1," GRAPH SAUKU 

S <D f' \X1 i *tV IT,"" : PRESET (14*8, li)*8) :P 

R I NT#1," «:!:*» ^- Jr blXh." 

100 A$= I NKEY$ : I FA$=" " GOTO160ELSECLS : SETP 

AGE, 1 :CLS:BLOADNM$, S: SETPAGE, 

170 PRESET (2*8, 8*8) : PRI NT#1," Dante d) f { 

XI \\ -fey h IX, ■": PRESET (14*8, 10*8) : PRINT* 1, 

"*m ^f- I blXh." 

180 A$= I NKEY$ : I FA$=" " GOTO180ELSECLS : SETP 

AGE, 2 : CLS : BLOADFS, S : SETPAGE, 

190 COPY (0,0) -(255, 143), 1 TO (0,0;, 2 

200 SETPAGE, 2 : BSAVEFS, &H0, &H49B0, S : SETPA 

GE,0 

210 SCREEN0:PRINT"*7>j7yr : CLOSE: END 
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I 



I 



win «* « **s >m 



ypj* 



m 



r MSX2+©H' K-y^ 2 %-MSB 
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* % iru9Z.£tz&oT4-©AGE 

l*JE L fc U HPJ ofcH fcfflfcPl » 

o«V£> £ A/c-f it £\ fc t *.& 

u-f K •;/ ? 2 ©ft £ *UB # £**£ 

|*]B?A©SPEN©(5o ^ if-5 
•"ITO**-?^ SPENte*?© 



68 #I^'7 7-f7^7-;i/Sfflfi 




MSXT0>fe#f£rt:-3JfcA/C*o * 
tt^-C"PC-8801^PC-9801*yU 
--t'L/;* N bo^^PC-9801Tf^ 

ofcA/rtw irx t°- kjWI < x 

^ <* b L ^hu U MSXM o tzA,Xto 
V - -<7>F1 XDJa^Tfa^ttoT 
<&S £ Z *ia*jfc < To *-MSXo 
T^fUs fc L* "5 Z £ -C'-mi-MSX 
TSPENfcftofcA/rtcfcfco * 
£ (iAGEt ft L* ct 1 \Z.Wm*& 
+Tft l*J£ L fc 'J glj ofc *J LT, 

< A,fclifcA,£i^»-LT J Lfco 
i.^A,#«MI*oi*£ < otfej 

X.? J^TiSTT-f^? 
, 1|CD|*3©_L L Jir^&v^A/CT 

io 'j*-<A,ttj 

fAGEfc^+ST'J's STAFF 
oTBKJTnTiLfcj 

fcsiiir , i;*, mz?? 

-7-ivc rif-f ^-- <7)^{zis^i« 

SI5£f£o TT iT-5 TT ? 3W.C 



UMA,fr? 

3— A* fot't^ o 

r T&EV7 hfl>W«f ■*•— oTs 

"To +&£A,fcfc£fcU*l±teT:\ 

x-f^-Tfe, ^airowfc? 

7— ©=;$£A,fcA,>b\ *-*'- 
K-fl&frfli < (Difh(Dtz: < -5 2 

£Ol7T£-C'Lj:o *? l*"5 3ft* 

A/ertt& s^lts-To ^o 

tfyvM,*T*TJ:*3u DDfjy£g|5li 
r T&Ev 7 h rtap-cte 7 ^7 7 

-fy7'y-;Ki, DDfly|igS0>2F 

3*-c«fc--r so fc y -rr l fed 

Ol^T-S>v-zL7'JKZ)I£^Lfcl^ 

ft "5 7ft(zi£L ^fo co £ vm^X £ 

Tf * x ? 

r i*3ji*A,-c*LfcJ:*a?j 
r -5A~ *-5*£J:j 
tzl^A,t?itzX?fr? 

fcA,*Sg'J3:<o*>«>o-Co feCO 

f - < 2j**aotvs u n$rat> 

3 >-©*&£ *\ KW0)fcA0>xx 





4 



'W ■;/, 



*>nx ±astf***»ofcA/ci\i 

>h^^ hLir«J:fco 
«LTV.*ofcA/Tf J: &-fr'- 

*^> ±S«>»J£lfco rt£<Z>li 
*S, a*lS*.8c«>tfDDia3fiS& 

^ L^ -9 Z ^ T\DDm^g|5(J9800 
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fcf O* U % ^03&fx£ Dantetf) v 
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DD«*6B0> 
BASICWUJBT3 







1 SCREENS : DEF I NTA-Z : D I MAC 255 , 5 .' 




20 BLOAD"SAMPLE3.GE5" , S 




30 COLOR =RESTORE:GOSUB120 




40 GOSUB100 




5 FOR 1=0 TO 10 0: NEXT: ' WAIT 




60 GOTO40 








1 COPY C A C AN , I > , A< AN , ) ) -STEP C A C AN , 3 ) - 1 




, AC AN , 2 )- 1 3 , 0TOC AC AN , 5 ) , AC AN , 4>> , 




1 1 AN=C AN+ 1 M10DI1X : RETURN 




120 MX=VPEEK<&HGA07) 




130 FORP = 0TOM,x.:FORI=0TO5: ACP, I >=VPEEKC&H 




6 A0 8+P*8+ I ) : NEXT I , P : RETURN 





CLEAR l , &H8FFF : GOSUB l 430 

SCREEN0: WIDTH40 

DEF I NTA-Z 

PRINT" (1) 3L'-9" 7>t",' — > DD 9z>0~ " 

PRINT" C2) DD 9z>J~ — > BVV >TytV" 

PRINT: PRINT" Select (1) or C2J = "; 

A$=INPUTSC 1 >: IFA$O"l"ANDA$O"2"G0T 



1000 

1010 

1020 

1030 

1040 

1050 

1060 

01050 

1070 PRINTA$:PRINT 

1080 PRINT"Select file name 

1090 B$=LMPUTSC 1 ): I=ASCCB$): 

C I -32+256 >M0O256:BS=CHR$< I > 

1100 PRINTBS 

IFK65 OR I = >90 OR 1=77 

1=1-65 

SCREENS 

OPEN"GRP: "FOROUTPUTAS** 1 

IFAS="2"GOTO1290 



A~L,N~Y = "; 
IF1>36THENI= 



GOTO 1080 



SETPAGE 
PR I NT** 1 



1 :CLS:SETPAGE1 :PRESETC0 
"3'J?' T^tV J f -fZ.9 5 tvh 



0; 
Vf9 



1 1 10 
1 120 
1 130 
1 140 
1 150 
1 160 
1 170 
1 180 
9" 71'" 

ll 90 PR I 

1200 

1210 

1220 

1230 

1240 

9" 71 " 

l 250 PR I NTH l , "HIT ANY KEY" : A$= I NPU'l SC l ) 
SETPAGE0 , : BSAVE" F I LE000 " +B$+ " . GE5 " 
&H76FF,S 
SCREEN0 : PR I \\T"1>j.O'.>3"? V1V9" : END 



"HIT ANY KEY " : A$= I NPUTSC l ) 
. : DEFUSR=&H9000 : A=USRC I ) 



•lT**l , 
SETPAGEt 
IFA=-lGOTOl390 
COLOR=RESTORE 

SETPAGE, l :CLS: SETPAGE l : PRESETC , ) 
PRINT**! , "DD75X 30 J r" * 47,9 =3 tvh Vf9 



1260 
,&H0 
1270 
1280 
1290 
1300 
9"*ti 
1310 
1320 



SETPAGE , l : CLS : SETPAGE l 
PR I NT** l , "DD9z>0"30 J f* 



PRESET C 0,0) 
■7.9 H tvh l/f9 



PR I NT** l , "H I T ANY KEY" : AS= I NPUTSC l ) 
SETPAGE0 , : BLOAD"F I LE000 "+BS+" . GE5 " 
,S:COLOR=RESTORE 

1330 SETPAGE, l : CLS : PRESETC , ): SETPAGE l 
1340 PRU-iTttl ,"3U9' tyW J f <?-9 =5 tvh Vf9 

1 350 PR I NT** l , "HIT ANY KEY" : A$= I NPUTSC l ) 
1360 SETPAGE0 , : DEFUSR=&H9003 : A=USRC I ') 
1370 IFA=-lGOTOl390 
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1380 


SCREEM0: PRINT' 


'S'a'TJaO V1V9' 


: END 






1390 


SCREENS: PR I NT' 


f~ ■<?-.'? 


1?- 


-":END 






1400 


' 


















1410 


' 1V^/Z 


" J tt1% 
















1420 


' 


















1430 


AD=&H9000 
















1440 


RE AD AS: IFA$="END' 


THENRETURNELSEPOKE 






AD, VALC"&H"+A$): AD= 


=AD+1 : GOTO 1440 






1450 


DATA 


C3,06,90 


C3 


7A 


90 


E5 


DD 






1460 


DATA 


El ,DD,7E 


02 


C6 


41 


32 


AD 






1470 


DATA 


9 1 ,DD,E5 


CD 


00 


91 


DD 


El 






1480 


DATA 


DA,F7,90 


DD 


E5 


CD 


25 


30 






1490 


DATA 


DD.E1 , C3 


EF 


90 


21 


57 


92 






1500 


DATA 


1 1 ,00,00 


3E 


0E 


D5 


06 


0C 






1510 


DATA 


C5,CD,56, 


90 


01 


20 


00 


03 






1520 


DATA 


EB.01 ,04 


00 


03 


EB 


CI 


10 




' 1530 


DATA 


EF,D1 ,EB, 


01 


00 


04 


03 


EB 




1540 


DATA 


3D,20,E2 


21 


ED 


91 


1 1 


82 




1550 


DATA 


76,01 , 1C 


00 


CD 


5C 


00 


C9 




1560 


DATA 


F5,C5,D5 


E5 


06 


08 


C5 


E5 




1570 


DATA 


D5,01 ,04 


00 


CD 


5C 


00 


El 




1580 


DATA 


01 ,80,00 


09 


EB 


El 


01 


04 




1590 


DATA 


00 , 09 , CI 


10 


E9 


El 


Dl 


CI 




1600 


DATA 


Fl ,C9,E5 


DD 


El 


DD 


7E 


02 




1610 


DATA 


C6.41 ,32 


AD 


91 


DD 


E5 


CD 




1620 


DATA 


00,9 1 ,DD 


El 


DA 


F7 


90 


DD 




1630 


DATA 


E5,CD,9C 


90 


CD 


4D 


9 1 


DD 




1640 


DATA 


E 1 , C3 , EF 


90 


21 


00 


00 


1 1 




1650 


DATA 


57,92,3E 


0E 


E5 


06 


0C 


C5 




1660 


DATA 


CD, CD, 90 


01 


04 


00 


09 


EB 




1670 


DATA 


01 ,20,00 


09 


EB 


CI 


10 


EF 




1680 


DATA 


El .01 ,00 


04 


09 


3D 


20 


E4 




1690 


DATA 


21 ,82,76 


1 1 


ED 


91 


01 


1C 




1700 


DATA 


00.CD.5C 


00 


C9 


F5 


C5 


D5 




1710 


DATA 


E5.06.08 


C5 


E5 


D5 


01 


04 




1720 


DATA 


00, CD, 59 


00 


El 


01 


04 


00 




1730 


DATA 


09,EB,E1 


01 


80 


00 


09 


CI 




17 40 


DATA 


10.E9.E1 


Dl 


CI 


Fl 


C9 


AF 




1750 


DATA 


DD.77,02 


DD 


77 


3 


C9 


3E 




1760 


DATA 


FF.DD.77 


02 


DD 


77 


03 


C9 




1770 


DATA 


2 1 , B 1 , 9 1 


1 1 


B2 


9 1 


01 


24 




1780 


DATA 


00, 36, 00 


ED 


B0 


21 


A6 


9 1 




1790 


DATA 


1 1 , B2 , 9 1 


01 


0B 


00 


ED 


B0 




1800 


DATA 


11,81,91 


0E 


0F 


CD 


7D 


F3 




1810 


DATA 


B7 , C2 , 4B 


91 


1 1 


D6 


91 


0E 




1820 


DATA 


1A.CD.7D 


F3 


21 


00 


00 


22 




1830 


DATA 


D2,91 ,22 


D4 


91 


21 


01 


00 




18 40 


DATA 


22,BF,9 1 


2A 


CI 


91 


1 1 


Bl 




1850 


DATA 


91 ,0E,27 


CD 


7D 


F3 


B7 


C2 




1860 


DATA 


4B.91 ,C9 


37 


C9 


21 


Bl 


31 




1870 


DATA 


1 1 ,B2,91 


01 


24 


00 


36 


00 




1880 


DATA 


ED,B0,2 1 


A6 


91 


1 1 


B2 


91 




1880 


DATA 


01 , 06,00 


ED 


B0 


1 1 


Bl 


9 1 




1900 


DATA 


0E, 16, CD 


7D 


F3 


B7 


C2 


A4 




19 10 


DATA 


9 1 , 1 1 , D6 


91 


0E 


1A 


CD 


7D 




1920 


DATA 


F3.2 1 ,00 


00 


,22 


D2 


91 


22 




1930 


DATA 


D4,91 ,2 1 


01 


00 


22 


BF 


9 1 




1940 


DATA 


21 ,01 ,3E 


1 I 


Bl 


91 


0E 


26 




1950 


DATA 


CD,7D,F3 


B7 


C2 


A4 


91 


1 1 




I960 


DATA 


Bl ,91 ,0E 


10 


, CD 


7D 


F3 


B7 




1970 


DATA 


C2, A4,9 1 


C9 


37 


C9 


46 


49 




1980 


DATA 


4C.45.30 


30 


,30 


41 


44 


41 




1930 


DATA 


54,00,00 


00 


00 


00 


00 


00 




2000 


DATA 


END 















DanteO) 




100 
1 10 

120 
130 
140 
150 
160 
150 
170 
180 
190 



CLEAR 100 , &HD000 : DEF INTA-Z 
COLOR 15,0,0: SCREEN0 : W I DTH40 
GOSUB360 : DEFUSR=&HD000 
PRINT" CI) Dante — > DD 7?"T " 
PRINT" C23 DD ?5>J~ — > Dante- 
PR I NT: PRINT" Select (1) or 12) 
AS=INPUT$C 1 ): IFASO " 1 "ANDASO "2 



GOTO 



PRINTA$:PRINT 

I NPUT " MAP NO . < 1 -30 >=" ; N 

IFN>0ANDN<3 1THENBS="RPG-F"+RIGHTSCST 
R$C100+N),2) ELSE 180 
200 SCREEN5 

2 10 OPEN"GRP: "F0R0UTPUTAS8 1 
220 IFA$="2"GOTO260 

230 ' 

240 AS="Dante" : GOSUB290 : SETPAGE0 , 2 : BLOAD 

BS+".BIN",S:GOSUB3 10 

250 A$="DD-757" 30" : GOSUB230 : SETPAGE0 , : BS 

AVEBS+" . GE5 " , &H0 , &H76FF , S : GOTO 280 

260 A$="DD75:r 30" : GOSUB230 : SETPAGE0 , 2 : BL 

OADBS+ " . GE5 " , S : COLOR=RESTORE 

270 AS="Dante " : GOSUB230 : SETPAGE0 , : BLOAD 

B$+" . BIN" , S: GOSUB330 : SETPAGE0 , : GOSUB350 

: BSAVEBS+ " . B I N" , , EA , S 

280 SCREEN© : PR INT'^af 'JaO i>li>9" : END 

230 SETPAGE, 1 : CLS : SETPAGE 1 : PRESET CO , 5 

300 PRINT81,A$+" / f ■< 7.9=3 tvh VtO^ 9Y" : P 

R I NT* 1 , " H I T ANY KEY " : A$= I NPUTS (. 1 ) : RETURN 

3 10 FORI=0TO5:COPYC 128*< IM0D2), 10+16*< I¥ 
2^-STEPC 127, 15),2T0<: 128, 16*1 > , : NEXT : CO 
PYC0,58)-(127, 105),2TOC0,0),0:COPYC 128,5 
8)-C255, 105>,2TOC0,48>,0 

320 FORI=0TO3:VPOKE&H7680+I , : NEXT : FOR I = 

4T03 1 : SETPAGE, 2 : P=VPEEK( &H4E0+ 1 } : SE IPAGE 

, : VPOKE&H7680+ I , P: NEXT : COLOR=RESTORE : RE 

TURN 

330 FORI=0TO5:COPY< 128, 16*1 )-STEPC 127, 15 

),2T0< 128*( IM0D2), 10+16*C I ¥2 ) ) , : NEXT: CO 

PYC0 , n-STEPC 1 27 , 47 ) , 2T0C , 58 ) , : COPYC , 

48>-STEPC 127,47),2TOC128,58),0 

3 40 FORI=0TO3: VPOKE&H4E0+I , : NEXT : FOR I =4 

T03 1 : SETPAGE, : P=YPEEK( &H7680+ I ): SETPAGE 

, 2 : YPOKE&H4E0+ I , P : NEXT : COLOR=RESTORE : RET 

URN 

350 AS=USRCB$+" B I N" ) : EA=PEEKC &HF603 5+PE 

EKC&HF604 )*256 : RETURN 

360 FORI=&HD000TO&HD033 

C "&H"+A$ ) : NEXT : RETURN 



READA$:POKEI . YAL 



370 
380 
390 
400 
410 
420 



DATA 
DATA 
DATA 
DATA 
DATA 
DATA 



13, 

23 

13, 

0F 
7D, 



EB, 

06 

36, 

CD 

F3, 



5E 
0B 
00 
7D 
1 1 , 



23 

1A 

23, 

F3 

5F, 



56 
77 
10 
1 1 

F5 



5F 
13 

1 1 
00, F6 
21,05 



21 
23 

FB 



F5 
10 
5F 
0E 
00 



36 
FA 
F5 
1A 
22 



00 

06 
0E 
CD 
6D 



F5,2E,01,0E,27,C3,7D,F3 
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100 -MUSIC {0,0. 1,1.1,1,1.1.1.1.1) 

17.8 DIM A*i(15) 

180 FOR M=0 TO 15: READ N$ : A% (M) = VAL (N$» : 

NEXT M 

190 -VOICE C0PY<A%.eb3> 

^00 _PIICH(443) : -TRANSPOSE (b00> :DEKSIRA- 

Z 

210 POKE &HFA2C+l*lb.80 

_20 HOKE &HFA2C-l-3*lb.80 

230 POKE &HHA2C+5+16.80 

240 HOKE &HHA2C+7*16.80 

v 5a T="T120 

260 02="02" :03="03" :04="04" :05="05" :Ob=" 

Oo" :07="07" :08="08" 

270 A="V14663" :B="V14663" :C="V 8612" :D=" 

V 8824" 

280 ' 

290 Al=" L16B8>E8<E8>G+F+E8C+ED8<B>G+E8C+ 

ED',B>G + F + E8F+ED<G+G+A B8>E8<E8->GfF + E8CtE 

D8<:B>G+E8CI-ED<B>G + F + E8FtED<G+G+8 

300 Bl = "LlbG+8B8E8>EDC+8<A>C + ',B8E.'EC + 8'-.A 

>C+<BE>EDC+8DCKBEEF + Gf-8B8E8>EDC + 8<A>C+ 

-.B8E>EC+8<A>CK.BE>EDC)-8DC + <.BEE8 

310 Cl-"L8G+BER8G+AF+R8G+AF+R8G+AF+K8GtB 

ER8GHAF+K8G+AFI -K8G1 AF + R8 

320 D1-" L8E>E<E>E<_>E<E>e<E>E<E>E<E>E<&> 

E<B>E<E>E<E>E<.E>b<b/b<E>E<E>E<E>E 

330 ' 

340 A2'"6 9" :__""V8*_2" 

350 A3=">K+8DK+E<BA BKt8DK+E4K + 8DKt EHG + 

AB.>Ct-D+EK + 4 

300 B3-" L8.'L>ALlbEEDED8A8EEDED8A8<BXtDEF 

+GfAB.>C+4 

370 C3="L8>l>FtLlu<G+G+AG L8>DF+LlusG+G+A 

G .>L8DALlu^GtAI)>CI-D+EF + GA4 

380 D3-"DDR8EDFtLioEEDEL8DDR8EF+F+AloF+l 

OD 

390 ' 

400 PLAY#2,T . T . T .T .T .T . T .T 

410 PLAYS2. 03. 03. 03. 03. 04. 04. 03. 03 

420 PLAY#2.A .A ,B .B ,C .C ,D .D 

430 PLAY#2.A1. A1.B1.B1.C1.C1.D1.D1 

440 PLAY#2. 05. 05, 04. 04. 04. 04. 03. 03 

450 HLAYK2. A2. A2. B2, B2. C2. C2. D2. D2 

400 PLAY#2. A3. A3, B3. B3. C3. C3. D3. D3 

470 GOTO 410 

480 DATA 24910. 27497. 8303. 8224.-3072 

. 0. 0. 0. 0915, 53o5, 32. 0. 18. 9428, 

128, 
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1000 _MUSIC(1,0. 1. 1, 1. 1..1, 1) 

1010 CLS:PRINT:PR1NT" 'RlGACHlCKj" 

1020 T$="T150" :PLAY#2,T$.T$,T$.T$.T$,T$, 

»T$ T$ T$ T$ 

1030 Al$=" »3303Q6V14L8CE-B-E-CE-B-E-CE-B 
-E-CE-CB-" 

1031 A2$=" D-EBED-EBED-EBED-ED-E" 

1032 Bl$=" 82303Q5V12L8C>C<C>C<C>C<OC<C> 
C<C>C<OC<OC<" 

1033 B2$ = " D->D-<D->D-<D->D-<D->D-<D->D-< 
D->D-<D->D-<D->[)-<" 

1034 C1$="824V10Q8O4L4CCCCCCCC" :C2$""D-D 
-D-D-D-D-D-D-" 

1035 D1$="824V10Q8O4L4E-E-E-E-E-E-E-E-" : 
D2$-"EEEEEEEE" 

1030 E1$-"924V"10Q8O4L4GGGGGGGG , ' :E2$="A-A 
-A-A-A-A-A-A-" 

1037 F1$="»3500Q0V13L8C<,B->E-<B->E-FC<B- 
>C&-FB-<B->CE-<B-" 

1038 F2$-">D-<B>E<B>EG-D-<B>D-EG-B<B>D-E 
<B" 

1039 F3$=" >D-<B>E<B>G-A-BA->D-<B>D-<B>E< 
B>_-<B" 

1040 R$= " B I H8H8S ! M ! H8H8B ! H8B I H8S I M 1 H8H8" 
:R1$ = "V58A15"+R$+T«$ 

1050 PLAY#2,A1$,B1$." "," "." " . " " . R1S 

1051 PLAY#2.A2$.B2$, " " . " " , " " . " " , Rl$ 

1052 PLAY#2.A1$.B1$.C1$.D1$.E1$." " . Rl$ 

1053 PLAYD2. A2$.B2$.C2$,D2S. E2$. " " . Rl$ 

1054 PLAYK2, A1S. BIS. Cl$, Dl$. El$. F1S. R1S 

1055 PLAY#2. A2$. B2$. C2S. D2$, E2$. F2$. Rl$ 

1056 PLAY#2.A1$, BIS. CIS. D1S. E1S. " " , R1S 

1057 PLAY#2. A2$.B2$.C2$. D2S.E2S. " " . Rl$ 

1058 PLAY#2. Al$, Bl$, CIS, D1S. E1S, F1S, Rl$ 

1059 PLAY#2. A2S, B2$. C2$. 02$. E2S, F2S. Rl$ 

1000 PLAY#2. Al$. BIS. CIS. D1S. E1S. F1S. R1S 

1001 P1.AY#2. A2$. B2S. C2S. D2S. E2S, F3S. R1S 
1070 GOTO 1050 
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100 '— MSX-MUSIC SEl !!! — 
110 _MUS1C(1.0. 1. 1. 1. 1. 1, 1) 
120 -PITCH (443) 

130 _voiCEieL.ei.ei . ey.eb.ei2) 

140 ' PSG SOUND SET 

150 SOUND 7, 49: SOUND 6.17 
200 A0$-"T140L4o5V]2C&C_CiaXB&B&B&L;" 
210 A1S-" 05E&E&E&E D&D&D&D" 

220 A2$=" D&D&D&D C&C&C&C" 

400 B0$-"T140L4O4V12A&A&A&A G&G&G&G" 
410 B1S-" 05C&C&C&C <B&B&B&B" 



420 B2S=" B-&B-&B-&B-A&A&A&A" 

430 B3S-" A&A&A&A G&G&G&G" 

600 C0$="T140L4O4V12F&F&F&FD&D&D&D" 

610 CIS-" A&A&A&A G&G&G&G" 

620 C2S=" G&G&G&G F&F&F&F" 

630 C3$-" F&F&F&F C+&C+&C+&CI-" 

800 D0$="T140L8V15e4O5A&ADEF&F16A&A16>C< 

B&B 1 bG&G 16D&D&DR8R8" 

810 D1S-" A&ADEF&F16A&AI6>C< 

B&B 1 6G&G 16A&A&AR8RS" 

S20 D2S-" A&AD£F&F16A&A16^C< 

B&B10>C&ClbD&D&DR8R8;" 

S30 D3$-"E2A&A16B&B16.'C'sB&B16G&G16D16E10 

&E2" 

840 D4$-"G2G&G16A&A16B-A&A16B-&B-16X:&C2 

850 D5$-'"E2A&A10B&B16>C<B&B16>C&C16DS&D2 

860 D0$="G4&G4&G4&G4" 

1000 E0S'"T140L16O6" 

1200 F0$="TT40L16O3V12DD>D<D>CCtD<D>D<D> 

CC+D<A>CC+<DD>D<D>CC+D<D>D<D>CCtD<A>CC+< 

1210 Fl$="824vl4F2F8&F>F8&F<F8 E2ES&E<B8 

&B>&8" 

1220 F2S="E-2&E-8DE->DE-<E-S D2&D4DCC+D" 

1230 F3$-"<B-R16>B-B-<B-4R16G+AB-G+AB-8 

AA>A<AR16A>ARSR16<AA>AA<A8ei2" 

1400 G0S-"T140V10eA15 HB! 16H16C16H16HSB! 

16H10C16H16HBI16H16C16H16HSBI16H16C10H16 

HB!lbHlbC16H]bHSB!lbHlbClbHlbHB!10HlbClb 

HlbHSB! IbHlbClbHlO" 

1410 G1S-" HBllbHlGClbHlbHSBIl 

bHlbC16H16HBI16H16C]bHlbHSB!lbH10CJoHlbH 

B! IbHlbClbHlbHSBI lbHlbClbHlbHB! lbHIOCll.H 

loIISBllOHlbClbHSlb" 

Ibilll H1IS- "T140S0M3000L4K4CK4CU4CR4C" 

lb 10 HIS"" K4CK4CR4CK40lbclb 

tS" 

lb20 H2S-" R4CR4CR8ClbC16CCl 

OCSClOClbClbCS" 

1030 H2S-" R4CR4CR8ClbC16CCl 

0C8C16C16C16C8" 

1700 ' Synthe Tom 

1710 I0$="T140O3L64R4R4R4R4R4R4R4V14BV12 

B-V10AV8A-V14GV12G-V10FV8EV14DV12C+V10CV 

8<B>V14" 

1720 1 1$=" R4R4R4R4R8V14BV12B-V10AV8A-V14 

BV12B-V10AV8A-V14DV1 2C+V10CV8<B>R8. V14B 

V12B-V10AV8A-V14BV12B-V10AV8A-R16V14BV12 

B-V10AV8A- V14BV12B-V10AVSA-V14G\12G-V1 

0FV8EV14DV12C+V10CV8<B>" 

1730 I 2S- " R4R4R4R4R4R4V14DV1 2C+V1 0CV8<B> 

V14DV12CtV10CV8<B>V14BV12B-V10AV8A-V14BV 

12B-V10AVSA-V14GV12G-V10FV8EV14GV12G-V10 

FVSEV14DV12C+V10CV8<B>V14DV12C+" 

1800 J0$-"T140L.8V1 104R8A&ADEl&Fl6A&Alb>C 

<B&B16G&G16D&D8cDR8" 

1810 Jl$" RSA&ADEF&FJbA&.MOxC 

•vB&B16G&G16A&A&AR8" 

1820 J 2$-" '. R8A&ADEF&FlbA&A16>C 

<B&B 1 6>C&C 1 6D&D&DR8<" 

1830 J3$-"r8E2A&A16B&Blb>C<B&BlbG&GlbDlb 

E16&e4. " 

1840 J4$="r8G2G&G16A&A16B-A&A16B-&B-16>C 

&c-4.<" 

1850 J5$=" r8E2A&A16B&B16>C<B&Blb>C&C10D8 

&D4. " 

I8b0 Jb$-" R8G4&G4&G4&G8R4R4L64BB-AA-GG-F 

EE Db-C<BB-AA-GG-FEE-DD-C-..BB-AA-GG-" 

2000 PLAY #2. A0S.B0S.C0S. "" ."" .F0S.G0S 

.H0$ 

2010 PLAY #2.A0S,B0S,C0$,"" ."" ,F0S.G14i 

.HIS. 10$ 

2030 PLAY #2. A0$. B0$, C0$, " " , 

.H0$ 

2040 PLAY #2,A0$,B0$,C0$,"" . 

.H2S. US 

2050 PLAY #2, A0$.B0S.C0$,D0$. 

.H0$."" , J0$ 

2060 PLAY r2,A0$,B0$,C0S.DlS,' 

,H0S."" ,J]$ 

20bb PLAY #2, A0$. B0S.C0S.D0S. ' 

,H0S."" . J0$ 

20b7 PLAV #2, A0S.B0S.C0S.D2S. 

, H0S, l^S. J2$ 

2070 PLAY #2, A1S, BIS. CIS, D3S. ' 

.H0S,"" ,J3$ 

2080 PLAY #2. A2S. B2S.C2S, D4S. ' 

, HIS. 10$. J4$ 

J090 PLAY #2.A1$.B1$.C1$.D5$.' 

.H0S."" ,J5$ 

2100 PLAY #2.A2$,B3$.C3$,D6$. ' 

. H2S, 11$. J6$ 

2110 GOTO 2050 
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•' 193' b m 93 m * 
SCREEN 5: COLOR 15.0,0:CLS 
SET PAGE 0, 1:CLS 
SET PAGE 0,2:CLS:SETPAGE0,0 
DEFINT A-Z:DIM X(12>,YC12> 
X=1:Y=1:F0R S=l TO 12 
■XCS)=65+X: YCS)=65-Y 
X9=X:X=X-Y:Y=X9+Y:NEXT S 
X0=150:Y0=150 
LINECX0, Y05-CX0 + 1 , Y0 5, 15 
SETPAGE 0.2: FOR S=l TO 12 
COPY C65,655-C250, 2005,0 TO ( , ) , 1 
COPY C65.655-C250, 2005,0 TO C0.0>,2 



LINE C0, 
COPY (0, 
TPSET 
IF S=12 
COPY C0, 
TPSET 
NEXT 
GOTO 280 



5-C200, 150),8,BF, AND 
0)-<255,200),2 TO (XCS5 



YCS5 



THEN 270 
05-C255.200), 1 



TO (XCS>,YCS5 



X(n),Y(n) 
XO.YO 







_ 



1000 ' 3f^f7 *3-y-fe> 

10 10 SCREEN 5: COLOR 15,1,1:CLS 

1020 DEFSNG X,Y: DEFINT S,P,I 

1030 DIM XC 1000, 1 5, YC1000, 1 ),S< 1 ) 

1040 P=0:SC0)=0:Q3=SQRC3):R=2/3 

1050 XA=0: YA=200:XB=250: YB=20 

1060 XX=C XB-XA )/Q3 : YY=C YA-YB 5/Q3 

1070 XC=XA+.5*CQ3*XX-YY5 

1080 YC=YA-.5*CXX+Q3*YY) 

1090 LINECXA.YA5-CXB, YB5.3 

1100 LINECXB, YB)-CXC,YC),3 

1110 LINECXC, YC5-CXA. YA5.3 

1120 GOSUB 1200:FOR 11=0 TO 6 

1130 P1=P:P=P XOR 1:SCP)=0 

1140 FOR 1=0 TO SCP15-1 STEP 3 

1150 XA=X< 1+0, PI ):YA=YC I +0 , P 1 ) 

1160 XB=XC 1+1 ,P1 5: YB=YC 1+1 ,P1 5 

1170 XC=XC I+2.P1 5:YC=YC 1+2, PI 5 

1180 GOSUB 1200: NEXT I, II 

1 190 GOTO 1190 

1200 XS=R*XA+XB/3:YS=R*YA+YB/3 

1210 XR=XB-C XC-XA )*R : YR=YB-( YC-YA )*R 

1220 LINECXC,YC5-CXB,YB5, 1 

1230 LINECXC,YC5-(XS,YS),3 

1240 LINE<XS,YS>-CXR,YR>,3 

1250 LINECXR, YR5-CXB, YB) , 3 : S=SCP) 

1260 XCS+0,P)=XA:YCS+0 F P5=YA 

1270 XCS+1 ,P)=XC:YCS+1 ,P)=YC 

1280 XCS+2,P)=XS: YCS+2,P)=YS 

1290 XCS+3,P)=XS: YCS+3,P>=YS 

1300 XCS+4,P)=XB: YCS+4,P)=YB 

1310 XCS+5,P)=XR:YCS+5,P)=YR 

1320 S(P)=SCP)+6:RETURN 
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Listl is^^p-;bv2/>H;b-?> 

10 CLEAR 100.&H8FFF:DEFINT A-Z:CLS 

20 PRINT"* ** <rlXlU-h Vy'/iT T Uf ik t9W 

Q9' 7h." 

30 PRINT"* MSX7J&' V V '90 4*' 73' *" 

40 PR INT: LINE INPUT"7y^3' Mv 7V VX = &H 

" ;M$:M=VAL("&H"+M$) 

50 PRINT"ADDRESS=&H" ;HEX$(M) ;" (" ;M;") 

60 IF M>0 OR M<&H9000 THEN PRINT" 7V VX# 

HfX*'1X." :GOTO 40 
70 IF M>&HD000 THEN PRINT" ?Y UXi}' ****** 
tX," :GOTO 40 
80 PRINT"<Mf' Aj&?(Y/N)" ; 

90 A$=INPUT$(1) :A=INSTR("YyNn",A$) : IF A= 
GOTO 90 

100 PRINTA$:IF A>2 GOTO 40 
110 A=M+&H303:PRINT"7yy3' T W ik &H";HE 
X$(M) ;" (" ;M;°) ill &H" ;HEX$ (A) ;" (" ;A;" ) 7 

T " 

120 LN=1000:C=0:Y=CSRLIN:AD=M 

130 LOCATE 0.Y-.PRINT LN:FOR I -0 TO 7 

140 READ A$:IF A$="*" GOTO 190 

150 A-VAL("&h"+A$) :POKE AD,A:AD"AD+1 

160 C=(C+A)AND &HFF:NEXT I 

170 READ A$:IF COVAL (" &h" +A$) THEN PR1N 

T"t-97'>- T+W V)?X." :PRINT"Line Numb 

er =" ;LN:END 

180 LN=LN+10:GOTO 130 

190 NA$="DSCR"+HEX$(M)+".OBJ" 

200 PR I NT" -b-7' v^X . ( " ; NA$ ; " ) " 

210 BSAVE NA$,M,M+&H303 

220 PR I NT" yi$>J 3 >) y7y*.":END 

1000 DATA 21,00, 18. 11.23. C0, 01, E0.0E 

1010 DATA 02, CD, 59. 00. 21,00. 18.01.70 

1020 DATA 20. 00. 3E. 20. CD. 56. 00. 21, 32 

1030 DATA 23,C0,11.20.18.01.E0.02.41 

1040 DATA C3.5C.00.60.* 
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^ATli^&te-f^Tg^ LT 
®.nzt[zLXh%o)X\ ztix 

$ x s my? K y h ItfttC^C o 

-&<tZ>Zt*%i7L&n a #fL< 



K£^br*Es* ¥*ia^ *t o 
ffiiz^Ec'fcfflsrrSo 

□ 3^ A £fFo XMzMztt t\ 

1 orai- (7) tz wHamma* •? 

XL$.itz tZX\ $6.0)7. fc°— 
K(ES)*fc, i^[(7)^?rR^-r^^> 
^-(EC)COfifi^— RLfcfc, ES£ 
1±i^LTEC?rOCr-5>, fciv} 

\z cfc^Ts j&(7>;* t:°- K*<S < fc 

ni*tt % (s £\ * e °- k 7 v -ft 

Z> g XOMo)Wtf% <^T<5 
£tsbtzO)m7 V 9tz 

^(cy— A<7)-tz «y ?■ <(->7& bX 
l » < <7)(S^#^5J^^: z\ t ft- K 
tt&NkW&frl LX, y°ny^ 
uzMibnte* 



List2 5^^©y->-7P^5A 

5 CLEAR 100,&HBFFF:BLOAD"DSCRC000.OBJ" 

10 SCREEN 1,2: COLOR 15, 0,0: KEY 0FF:CLS:D 

EFINT A-Z 

20 GOSUB 10000 

30 DEF USR=&HC000 

40 PLAY" S0m3000tl50116o5" 

90 X=15:Y=11:EF=0:SC=0:EN=20 

100 A=STICK(0) 

1 IjBT XX=0:YY=0:ON A GOSUB 200, 215, 220, 230 

,240, 250. 265, 270 

120 X=X+XX:Y=Y+YY 

130 X=X- (X<0) + (X>30) : Y=Y- (Y<8) + <Y>22) 

140 PUT SPRITE 0, (X*8,Y*8),15,0 

150 IF MF GOTO 350 

160 IF STRIG(0) GOTO 300 

170 GOTO 400 

200 YY=-1: RETURN 

210 YY=-1:XX=1: RETURN 

220 XX=1: RETURN 

230 XX=1:YY=1: RETURN 

240 YY=1: RETURN 

250 YY=1:XX=-1: RETURN 

260 XX=-1: RETURN 

270 XX=-1:YY=-1: RETURN 

300 MX=X:MY=Y:MF=1 . 

350 MY=MY-2:PUT SPRITE 1, (MX*8. MY*8) , 8, 1 

360 IF MY<-2 THEN MF=0 

400 LOCATE RND(1)*31,0:PRINT" •" ; 

410 A=USR(0) 

420 LOCATE 0, 24: PR I NT" SCORE :";SC; 

425 LOCATE 16, 24: PRINT" ENERGY :";EN; 

430 GOSUB 500 ' f* 9 93' i}X 

AA0 GOTO 100 

500 IF EF=0 THEN EX=RND (1) *30:EY=0 :EF=1 



510 EY=EY+1:IF EY>24 THEN EF=0:EN=EN-1 :P 

LAY"o3e" 

520 PUT SPRITE 2, (EX*8. EY*8) . 7, 2 

530 IF ABS(EX-X)<2 AND ABS(EY-Y)<2 GOTO 

600 

540 IF MF THEN IF ABS (EX-MXK2 AND ABS (E 

Y-MYX2 GOTO 700 

550 RETURN 

590 ' 600:f*h i/' W ffifv^) 

600 EF=0:PLAY"o3c" 

610 COLOR , ,8:EN=EN-5:F0R 1=1 TO 50: NEXT 

I : COLOR . .0 
620 RETURN 

690 ' 700:f*h W 79i9W 
700 EF=0:MF=0:SC=SC+10 
710 PUT SPRITE 1. (0,193) 

720 PUT SPRITE 2. <EX*8, EY*8) , 8. 3 :PLAY"o5 
a" :FOR 1=1 TO 30: NEXT I 
730 PUT SPRITE 2, (EX*8. EY*8) , 8, 4 
740 RETURN 
10000 1=0 

10010 A$="":FOR J=0 TO 31: READ B$:IF B$< 
>"*" THEN A$-A$+CHR$(VAL("&H"+B$)) :NEXT 
J:SPRITE$(I)=A$: I=I+l:GOTO 10010 
10020 DIM C$(63) 

10030 A$="":FOR J=0 TO 15:READ B$:IF B$< 
>"*" THEN A$=A$+CHR$(VAL("&H"+B$)) :NEXT 
J:C$(I)=A$:I=I+l:GOTO 10030 
10040 RETURN 
10100 ' SPRITE DATA 

10110 DATA 01,01,01,03,43,43,57,D7.D4,D8 
,FB,FF,FF,D7,C3.40 

10120 DATA 00, 00, 00, 80, 84, 84. D4.D6, 56, 36 
,BE,FE,FE.D6,86,04 
10130 ' SPRITE DATA 1 

10140 DATA 00.00,00,01,01,01,01,03,02,01 
,03,03,02.00,00.00 

10150 DATA 00,00.00.00.00,00,00,80,80,00 
.80.80.80.00,00,00 
10160 ' SPRITE DATA 2 

10170 DATA 00, C0, 70, 78, 38, IB, 07, 5B, D9, E5 
,D7.D9,CD,61.60,20 

10180 DATA 00, 03, 0E, IE, 1C. D0, E0, DA, 9B, A7 
,EB,9B,B3,86.06,04 
10190 ' SPRITE DATA 3 

10200 DATA 01,01,21, 19. IF, 0F.0F, IF, IF, FF 
. 1F.0F, IF. 33. 41. 01 

10210 DATA 00,00.06,BC.F8,70, F0.DC.FF.F8 

,F0,D8,8C,00,00,00 

10220 ' SPRITE DATA 4 

10230 DATA 00.00.00,01,09,05,03,03,07. IF 

.03,05,00,00.00,00 

10240 DATA 00.00,00.00,08,30,30.C0,3C,C0 

,F0,C0,80.80.00,00 

10250 DATA * 

10260 ' SPRITE COLOR 

10270 DATA 0F,0F,0F.0F,0F,0F.0F,0F,0F,0F 

,0F.0F,0F.0F,0F,0F 

10280 ' SPRITE COLOR 1 

10290 DATA 0F,0F,0F,0F,0F,0F,0F.0F,0F.0F 

,0F.0F,0F,0F,0F,0F 

10300 ' SPRITE COLOR 2 

10310 DATA 0F.0F,0F,0F,0F,0F,0F.0F.0F,0F 

,0F,0F,0F.0F.0F,0F 

10320 ' SPRITE COLOR 3 

10330 DATA 0F,0F,0F,0F,0F,0F.0F.0F.0F.0F 

.0F.0F.0F,0F,0F.0F 

10340 ' SPRITE COLOR 4 

10350 DATA 0F,0F.0F,0F.0F,0F.0F.0F,0F,0F 

,0F,0F,0F,0F.0F,0F 

10360 DATA * 
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List3 ffiHteK-J/MMfflzSE 

90 X=15*8:Y=11*8:EF=0:SC=0:EN=20 

130 IF X<0 THEN X=0 ELSE IF X>240 THEN X 

=240 

135 IF Y<64 THEN Y=64 ELSE IF Y>176 THEN 

Y=176 
140 PUT SPRITE 0, (X,Y),15,0 
200 YY=-8: RETURN 
210 YY= -8 :XX=8: RETURN 
220 XX=8: RETURN 
230 XX=8:YY=8: RETURN 
240 YY=8: RETURN 
250 YY=8:XX= -8 '.RETURN 
260 XX=-8: RETURN 
270 XX=-8:YY=-8: RETURN 
300 MX=X:MY=Y:MF=1 

350 MY=MY-16:PUT SPRITE 1, (MX, MY). 8.1 
360 IF MY<-16 THEN MF=0 

500 IF EF=0 THEN EX=RND (1) *240:EY=0 :EF=1 
510 EY=EY+8:IF EYM92 THEN EF=0:EN=EN-1 : 
PLAY"o3e" 

520 PUT SPRITE 2, (EX.EY).7.2 
530 IF ABS(EX-X)<9 AND ABS (BY-YX9 GOTO 
600 

540 IF MF THEN IF ABS(EX-MX)<9 AND ABS (E 
Y-MYX9 GOTO 700 

720 PUT SPRITE 2. (EX. EY) , 8, 3 : PLAY" o5a" :F 
OR 1=1 TO 30: NEXT I 
730 PUT SPRITE 2. (EX.EY).8.4 



List4 B8t7)Kl*«Ji<rS(D 

90 X=15*8:Y=11*8:EF=0:SC=0:EN=20:ES=1:EC 

=0 

500 IF EF=0 THEN EX=RND (1) *240:EY=0 : EF=1 

:EC=EC+1:IF EC=ES THEN EC=0:ES=ES+1 

510 EY=EY+ES:IF EY>192 THEN EF=0:EN=EN-1 

:PLAY"o3e" 



Lists »OB*«S<T5© 

530 IF MF THEN IF ABS (EX-MXX9 AND ABS (E 
Y-MYX9 GOTO 700 

540 IF ABS(EX-X)<9 AND ABS(EY-Y)<17 GOTO 
600 
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List6 ?-u*- jK-^mm 

50 ' gosub 1000 

60 SCREEN 1:A=RND(-TIME) 

435 IF EN<1 GOTO 2000 

2000 LOCATE lb. 24 :FR1NT" ENERGY : "; 

2*10 LOCATE 11. 12: PR INT" GAME OVER" 

202* LOCATE 10. 20: PR 1 NT" PUSH RETURN" 

2030 PUT SPRITE 0, (X. Y) . 8, 3 :PLAY" o3a" : FO 

R 1=1 TO 30: NEXT I 

2040 PUT SPRITE 0. (X. Y) , 8, 4:PLAY"o3a" :FO 

R 1=1 TO 30: NEXT I 

2050 PUT SPRITE 0. (0, 193) : PLAY" o3a" 

20b0 IF INKEY$OCHR$(13) GOTO 2060 

2070 GOTO 50 

List 7 $"(Mmm*mm 

50 GOSUB 1000 

1150 FOR 1=9 TO 15:COLOtt=(I-l, 0.0.0) :COL 

OR= (1.0, 1-8.7) : IF INKEY$=" " THEN RETURN 

ELSE NEXT I 
llb0 FOR 1=14 TO 8 STEP -1 :COLOR= (1 +1 . 0, 
0.0) :COLOR=(i.0. 1-8.7) : IF 1NKEY$=" " THE 
N RETURN ELSE NEXT I 
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List8 1 EJfOD^-fMMfflii 

1000 ' title 

1010 SCREEN 5.0:COLOR 15.0.0:CLS 

1020 FOR 1=8 TO 15:COLOR= (1.0.0,0) : NEXT 

I :C0L0R=(7,7,7.7) 

1030 OPEN"gr P :" AS #1: COLOR 7:PSET(88. 17 

b).0:PRINT tl,"hl->t ioXh" 

1040 SPRITES (0)=CHR$(&H80) 

1050 FOR 1=0 TO 31: PUT SPRITE I. (RND(D* 

255,RND(1)*191),7.0:NEXT I 

10b0 FOR 1=0 TO 7:J=(7-I)*.5+1:X=48*(7-I 

) :Y=20*(7-I) 

1070 RESTORE 1200 

1080 READ A.B 

1090 PSET(A*J-X.B*J-Y),0 

1100 READ A: IF A=0 GOTO 1080 ELSE IF A=- 

1 GOTO 1120 

1110 READ B:LINE - <A*J-X, B*J-Y) , I+8:G0T0 

1100 
1120 NEXT I 

1130 PSET (64, 17b). 0: COLOR 5:PRINT #1."PU 
SH SPACE KEY" 

1140 PSET (192. 24). 0: COLOR 7:PRINT#1 , " (frL 
11)" 

1150 FOR 1=9 TO 15:COLOR=(I-l,0,0.jff) :COL 
OR= (1.0. 1-8,7) :FOR J=l TO 50:NEXT J, I 
1160 FOR 1=14 TO 8 STEP -1 :COL0R= ( I +1, 0. 
0.0) :COLOR=( 1.0. 1-8.7) : FOR J=l TO 20:NEX 
T J. I 

1170 GOTO 1150 
1180 ' 

1200 DATA 40.40.40.20,50.40.60.20.60,40. 
: M 

1210 DATA 70.20.90.20.90.30.75.35.0.70.3 
0,80.40.0 : 

1220 DATA 100.25.120.25.120.40.0.105.20. 
105, 40. 0. 115, 20. 115, 25. 0. 120. 20. 120. 25, 

1230 DATA 70.50,70,70,80,50,90.70.90.50. 
: W 

1240 DATA 100.70.120,50.120.70.110,70,0 
: A 

1250 DATA 130.70.130.50.150.50,150.60,13 

0,60,150.70.0 : R 

1260 DATA 180. 50. 160, 50. 160. 60. 180. 60. 18 

0. 70. 160. 70 : S 

1270 DATA -1 



\ 



List 9 *yt-y*9mrz> 

5 CLEAR 100.&HBFFF 

10 SCREEN 1,2: COLOR 15. 0.0: KEY OFF:CLS:D 
EF1NT A-Z 

11 PRINT"-?yya' o-K f x tj ..." 

12 BLOAD"DSCRC000.OBJ" 

13 PRINT"A7- 7-fh Wfa-7 . . ." 



aL"C<ft*Alz(i8K!J(Z x fa 
A<7H *—i?W ZA, ZAMto -o X 



*£*PMb&r>tz£\.* J ) b(F>tz 
Matrix- Xtigm Ltztf t\ 

#*<»am} t tz &ttm< e x& 

h it p — jis-fis -< > yy—&ft t) 




ryt-royD^^^ICfit 1 ! 127 



tr ! £fc\ tofcUfcP<Cl/C»fcU ! £U~>A=fc£U 




-ti* % "b U-3 < 'J £ CcofrM&£ 
*>SA,C£u-)(7)ti % y'n-^'^L. 

mL^mmzfefrK^x: x*#s 
LX^<^M%(ryi\ &zv%m 

Z?lZ7?l£mA,X^^Xtio 

a^WJ: <£qoTUS7°Pv-* 
7AMC& BASICS £ J: te 



M7^-> a — h 7°P ^7A7-f 
5>KCfck BASICTHaStifc"^ 

p ^7A*ifl fc < $ aj£#£ n 

X<Z>(Dtz ^tf^ MSXCD& 

l^cw^c, yp^A^r 

MSXIZliMSX BASICS l^ 133 
t^v^TO^TUT, CCO BASIC 
(*MSX<7>|4g|«r^ilz5l#HiLT 
< ftS«*lJfcWI§fcA,fcfo fc*l*£\ 

wSsfcXifUfflLTl^TiS US BASIC 

•G0TOS:<7)^ffl(c«t»j, zr*>* 

3**) * L ££*££ 7°P ^7 A [I 
l;o?l\ BASICOTT/p^A 




yLTU<Afc^l^% fc& 

WtJ^tzBASIClZ^TS^ 
MSX-Cli}#oTUS<7)/c 

• v v HBCfSlJI ^XLii <nx\ 

#MSX-D0S^bl^fTT'# So 

•wsftp J: *j f •?# y Lfc 7°p 

atom's & »j usifc^ htm.it 
*>*>> mxwnwmtfmx $x 

Li.-otz ZtiXtZZ^XLZ 

w)tWRt%<riX\ kMb*.? 



£T:i<7)^A,T-MSXT"C £M 
&T3/c#)(C N ffljffS&fcaif 
TlC-) T^PvAtZS^iO'T 

fcWcltE^ ftf&Plcftb<7)fe<7) 
liM^j:-3T < ScDfco i: < C* 

CdteXT-V ^-^'jZ^Co XT' 

-f/Hra*"*"*iiJlb BASICWi 

AUTOp T > KfcAtl* £ "t CC 

7°p ^ A £# # ££#> b nS £ I » 

3„ ClcW::#ffl<7>XT f -<•?—*<# 

<7)7 P^"^A^<*ltSc7)T- N tf£ 

<7>T % tltlT < 5 t BASIC© 7° P 

fc < fcrp-C < S(7)fz fe<C*i^ 
MSX-DOS T00LS(Z^JMED^l^ 
•5 if-f ^— *<JR«>«bnTl^o 



MSX-C^iJffi-rSfctoloB^d:^© 



MSXTCSB€?Uffl-rSt«)CBx U5U 

*335i:&om5AI;*» MSX-DOSSWIE 

*f. MSX-DOS£o RAMl*)/S^-r^t 

RAMttu^-r^A^s©ra«A^3?^o § 

5r©Vi/>0X->RAMtf 128+PA'T KM 
±S5ABRAM/d:U^'f7r : fe^l!i-rSIJ-c!f, 



a>#1.2r, DOSStf^S^o *fc, MSX 
-DOSE TOOLSlzlS, 7iz>^^-^'J 



HVISX-iC (*t$:+ ; E-^-) 

HVISX-C 
►MSX-DOSS 
HVISX-DOSE TOOLS 








C ffiB&tt 1 CO f£$S$ fe <A # 

i^cov v>T'C &*&«£ 3 C 

T^MSX-C(7)V-aZ;U^ T 7 * 
*~ HfflTl»l r MSX-GAFli 

T (5 L i \, WCmfftbA. r l ttA 
It, t<-)fo7Cf7*—-?-v Vhfc 

MSX-DOS£ C0MMAND.COM?: $£ 
^LT^ 1 t LT.-^CO-r -f * 
^ (Z MSX-C(7)3:g|5<7) 7 7"f )U £ 
M80.COM, L80.COM, LIB80.COM, 

xt-v ?-£p t-mmtfr 

-f >* h —JURIST Ltzh, ^ 

cfc^j: cmrniz-z>^TmMiT^ 

£o?!rA,T'feb^tf>ll, fiSijitt 
7°P :?*7 A £ BASICS CT'#UT 

UX h 1 (i*MSX is No.1*£U 
9 3t^5U £® m IZ Hit BASICC7) 7° 
P^'^Ao ibf^S^COjEllx&CO 
fcSSM* BASICS LT'feftloT 

i^Atz-? tz hffimzimx'Z -5 

(it* tt, U ;* h 2 (i, 'J * h 1 ^ 

(5(?H U 7°P ^7A?-C T'#UT 
C(7)(5o(if5p^ N l^t^Ol^T 



JSd MrZs basic £ *> j -? £ ajit 

:£-C#UT&5 L, ln^:^*> 

A(I(i*3 ft o £ £ o-5#C^ U* 1 
feL^i^ JEit^oT, C£ 
i » -5 0M£*& »J *£ L i *§&£ £ i * 
•5 3 £ tZWMte L &V\ /c'Ct £\ 
BWB»tt«ffcft^Tt**0flffl|#f| 

?#&£ i *SHe & 3 (it* ftco/io 

i<^r— A^oTT, 4-ST* 

coiitjcx-, #A,#A<*<7)-H&£iti& 
x. & tzabcD^m i % l t i ^i mii 

«*: LT&(ffc4»(c*RHSrrt^ 

tz^iteo -f J rti:mk£^ J )<mt, 

KfrKfrT&llKl^O), T'fe, C 

CfcltSKI&oTi^cote, */, 
>0tc t*^ oafish < x fc i xi ^; fc 



#includ© <stdio.h> 




mainOC 
int i; 




•for<i=l; i<=10; i++><: 

print-K"MSX is No.l¥n">; 

> 

■ 
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UXM BASIC 

10 FOR 1=1 TO 10 STEP 1 
20 PRINT "MSX is No. 1 
30 NEXT 





LUK2 C 



^include <stdio,h> 



rna i nC ) { 
int i ; 

for<i=l; i<=10; i++){ 

printfCMSX is No.l¥n"); 
} 

} 



ti7<^-«,Ty^'7i^tl>T*/ :j Vt~l$f-3T\.^tt->Tb&mtz.e 



Z£ZZ>WtiZA,t?tf£'^ $>-?£ 

£ *<nim&m, l x < m 77 v 

$&v$*fe£mxiZ\.^\ "fy 

v?t£v?x? tOs *T'£'7 

i^ytz zn(i, tz£z.if&wi 
m?mxte-£i;*k\nx &—?&& 

HKic c (iKllSliMSi: t^n 

■B-*«t-3(z^Si:x ^^Tfcil^lJ 
/■fo 'J X h 2 CO0iJT*MT ^ < £ , 
main( ) s printf( )£^i<Dt) < m$k 
lZ$>tz%b<T)tz 
main( )tl^^|^(i, CC07°P 

f-S>o v.^(f x yP^^ACDAU 

ft -3 1 MfflHElHtef^^ m L i x 

p £ f$H§ifiw=Brre£tti 

-^(Zprintf( ) BASICHlfn/cA 
(ix ^ti^C<7)PV>K/zi:®o 
fc<7)T*(i^ixco75^d: wtif* 5S 
^*<6 c (z(ip v> Kfe 1^*5 h 




°MSX is No.1*A ; ^JK$n?)<^fc' 



£r>£imbtj*\ is 
ffilT-txx.(i x g 

c^fccoT', An^^n^ii^/i-:^ 
A7>-^-^f7 T*sa* L fc 

h£. nhfrom^Mzm&z 

Sfo U"5! h2(7)printf()CO0iJT- 
(ix *MSX is No.1¥n"i:ix-9/\°7 

&£. &*)Ltz$:?m.$:mLX< 
tlX^Z(Dtztf£\ "ttlfrfeitti 

^?$&) < T&'>X£X^Z>(nfr£'7 

h-fotr Sflci \, :ti^7^(I 

3t^5U<7)*^(7)*¥n*(ZOlxT 
K^LTte<„ ^ti(i®®(Z3t^ 

<n*£<ntz* %4**C N *¥n"?rl5o 



7A^oT C t BASIC^JtlxL 

WhmmLXMzut\ itzt 

tz£ < tofrhU^Atf&^tzhno 
ZZXCt BASIC(7)>££fttoi^ 

ZV-t: z t Xi^-o X L £ Hi o 
C 1 1 "i (7)(i =i >; \°-f 7— T\ 

basics -r >?-7°'j ?— *f£ i* 
5:^<^< ^ -f -hz^t l s ^ 

frfcLti^^o T* fo # v > L X 
SSA,T15 U\, *>*>A,£l#^-t5 

l^C7)(J, fF/&L/z7°P?*7A£ 
— mic v v >=§(::» L T L £ o 
©C*frLT, -r>^-7°U^-(i 
||?TT5(RUN£-t>--?>)/ct/lC x 1 

}t& ot^( bcntecntzo 
WO£tz CCTaw^7-(i, 

zm&scMtt^x u*m<.zmR 



mxm&* 1 n-f^mtx < ns 

WRfrtz^KbOt^'oXb&L 
-£z.te^tz?> n 

-? tzA, B^^c7)5:*tz L X L £ i. 
>f§) £ LXt<r>£ £xm.i:z t 

#<T*#5 ZZZtf'O?--/ 1 ) 

?-Xi£, i^b^-hmRLXbh 
(z^-s^y-zo :n*\ C t BASIC© 

JlfiSSf ©it^ * E fto XWnM 
iL\.^tt ^T^t-v &"b*ri;tf> 
iStRLTfr<£\ 7°n?*7A^fT 
4u::f?tR-f3*r©;iiW;: 

zcx\ i7>*^^Lfcccoy 
P^7A (zti*^m£.v-*7° 
u-y^ixtnxztizTZ) £^l 

*com* tt£^x\.^boi) iztz 

rm*%.x^<ztizL&o z 

(Dimit, BASICS/;: RUNTS 

tztfxmTZtizmzi b-<x s 

BASIC©t J -) *<^^tzflf JET*# T, 
T <** x -v i> T'# ££^11*0 u «> 



fc£ C Xit, — £p >' H )^ 
fffc -5 T x 7 -£<#££ L ft i *&£• 

(s, fajf t> p >' \°-r ju^ft -9 & 

Wtftt^U ¥ ©*i -£-(2 BASICS 
ib-^T^T^^^Slt »£ L N 7 flblK 
frV£T<5 tllt^iXb, 
mjwi -tol*^— ?)*&%> Z t¥ 
^<nx\ zcntmizfrKwm 

Wl* t htlZ Z t [Zt£%tzh -5 o 

%*ite U cnmStf'iL^Kntzc 

*-T^^ <Zt l,Z?%? TO^yftXl 

l^fc' £tMW.ts x^-f^- 
^ftoT C C7) V— 7.7°P ^7 A^r 

tt^mtftkn't / KA,tztf t\ x 

v-^tH^if^-V-^yP ^7A 

Xit p >/ \°< )\^miz ^sb Z>zt 

MED4^*(75XT'-f ^-^-ot 
yp^^A^-f^^Lfc*^, fe?S 



^£15-3-(7);:££^o BASICC7)7 
T -f ;U«ii^/£?S?-lZ *BAS\ C 

i>(Dtz bnfofr-oXl^t&l 

m.^^ot(D[zm¥£^y tz 

tteMtlo ZCD&OlZLXft 
^L^V-^yP^* : 7A^L^J:l^ 

J; zi WWJUl-^SPf lz\Z><F)tzo 
zi >/ u ;K7)^I(if5i|^i(z fc-^- 

-9 «tt ^ ¥)ii^r^:x.T L £ x.tf 

*Ss S-frn^ximttteiX 

^<n*.Z>-}5W£(ntz a 







7p<it^-?<5 6f COM 




7-<M«iam!PBA'P© : fe©)&Ay 

o^©A'-y^^7"rju^A^rL^^ 
6, *n^#%icur^o 





■uyjwjwmtD 



3R 



tl£5*cfc5 



*TEST.c*fc=S#(tSci:t-r^o 

£?ffiMZ%>&<nttXF.CQM'£ 

^.-fay^A&i: tstz £ tz 
cF.coM(i'\°— ♦*•- 1 mxtiz 7° 

iuMs 5&jimiT£^i*&ir7 i ) 

-?n-\zvV— i <?l'*->}])i'Ti-^ 
-f -*f-£ 1*3 7°P ^7A^4{± 

•n**xfcz£j&%{& *-<&&* 

§ iftgtftt l qfe b ; zzxm$L 

£ tz *r < % cf.com# y — * 7° 

£t£«ft$ fc(7)(Z»LT < ft 

'J " " Xlt *TEST.TCO*fcftao 
~£<F>&mZs "CG.COM* £ I s i 

7°p v=? L,tf$m-rz><ntz z n 

(S N CF.COM*rfE/& LtTa-F 
(7)7 7"T JU^rT'-b >7 U Ml§(-^ 

a 7 , -fe>7*'J«W3»**ifc 

7 t- -f ;u7)ft£3R^-(i. *mac"(z& 



5„::-cil *TEST.MAC*IZ&& 
iru-)z:£t& ^®T*#fcA,l;*> 

t-v ?— (=ttft&ft;& U\ typep 
v > KT'^tf? -K-S ft l )T : b£. 
MAC7 7 -f JUtfttA J: 1 lzt£ -o X 

Wft^yp^AT; T'-fe^T* 
U TOT#A*lT I * 5 7°P ?' v A 

Tl^-5 tB7j£ft3"?v>fg7 7' 
'OWWhSSfrte. *REL" #o^< 

" ft£?(tT*(2^TT 5 Z £ (JT*§ 
&l\, Z:(7)REL7 7"fJMi l J P'T" 
— ^^^yj- /Ufcfc^Ts jt 
: £ , )-(7)£'ZiZ}5^Tbl^Bi& 

<7) U ^ #1 V7)T\ C ■§ lv-5 <7)ft\fc 
%Mz+£fo, <'bl^Z„ih,Tkb 
-oXl^\ 

Z Z X\ MSX-D0S(7) 37>Fi 
LXMJTZtz-tblzl& y^'J- 
(7) t'z (zS < $n&M L T*> b ft 
ltftl;fftbfti\, -?(7)*i£<7>f±-h 
If £T57*n ^7AA<*i_80 . COM" 
T\ jI$'J>a-fcn!H#H2>o c 

(7)'J>*-(7)##^ HfrtZ'jZ^ 
ft'J P^— ^7'My'i- )U£'7 



|5|(D*<l:«>fc" ! 



# m L XW% L fttf b £ £ #)T 
I x < P —1—U<F)tz Z Z &M. 

-7°'J *-<7)ilW£;bft^fcta„ 
C 1£U>/U ^-T'BASIC(i< 
>^-7°'J^- ^LT S C<7) 

*ffiilb2ftTuScZ)T7 3 ny*7 



^tl\ ft£7r&lfbft& 

$fc v p>/vf-MHt£in 

'<0**l&Ar£ <*«*!**£■,, '< 

•y5 L 77'f;i'£f£oT^&£-f' 
-fjui:v,^-5<7){i, gift^(zi,N< 

Ofr037> K^Tft-? fc<7) 
IX^-^foT, i7><7)^ 
-'^ (7)l^l^ c t 9 (ZfFn-Sx7)rc*o 

\1£\ t(Z^<i^-TKLT^ 
5 2 £ z:n*<Cc7)JtA^(7)ii 

ft<7)fc'o ®M!«r1SlfSo 



L^rfet^ftttx C0M7WJU£flF 
S c i: ftco/i z: -9 L fdSPt^r^ 

Tf^U-b(frc7°P^7A^ h£ 
it MSX-D0SC7) pv>K^Ir11;J: 
^tz N 7 7"O^S£A7Tt5rc(t 
T\ ^fTT?>z:^7: ? T'#-l)J:o(z 

zz $.xmm^m:£, #>h,£ 
tv Tt), mmizimixfrz>£, 

tzhn fLT, znbcof^^- 
^biz^lzTSrca^z, /s-y^- 

77-f )U7W$famtZo t fy 9-7 

7^)[s£^l (Dltiim^-ti^BAJ" 
X\ fc<£A,<7)3V>K£U>£-3 
c7)7 7"r>'^lZ#l^Tfc< fc, ^n 
b^i^^LT^Tft-^T < fl&bOo 
MSX-C<7)7 P -y t°— (7)4" tZ fc I * < 
07}vs--y^7T-OU7!rA-?Tl^-5 

$A, cz:iT'#rzbi7>T'h 

^•<LT^J;o "j^h 2(7)7°P 
^7A^i7^ ?— T*l*T(5 L 
^ 9 7 7-r;i^* *TEST.C" ^ -fe — 

J: < 1, < b^ft^ b, MJI^ tz £ 
Zhfrbl -Si 7*-f £ —Xm iE 

Lftltn«'U(tftU 

i7-4"L T*«&(7> L80 . COM 
?r^7 L fc b,^ C T'TESTi: }To 

•b^^^*MSX is No.r^'ICtff-a- 



lb F<U1 bto- ( 5 ) 

W.L-W 1.N M-*r« (c) 1SM4985 Kicnwrft 

w» we c» <»» 



U®(z^7F^nfcT-Lcfc U^v 
'J X h 2 ?r^L¥iSL LT^-d: 9„ 
*MSX is No.r<7)*^UtZ]g-5 3t 

\.^frt>fr*frti: ZtHts *^ 

STf, 413(i fcfclZ BASIC ^C 
(7)ill^^: N P>/\°-f>IK7)>^tLtZ-Z) 

^ft^^^+'L^Z, CC03t>*s 
lit. #^77lZO^TH7->7° 
JU7°P^7A?rS U^ft^biiSy 
TV,»{ -3 *.«£©!£ ft^\ Z<7) 

^feiziar ^^^ft £tfh -otzh. 



t 107-24 








Msxty*x ! sffla 



■frhjtzh^mjz><o\s<k 












1£$S£ Lt^Mt'y^^v>w ATOfrWco 



EP.<7)i&f£t::*3<7)A\ 



T\ l^*>l^# 'J 7 -f JU*«rtJiS 




64 



CD 
U 



£ 
© 
£ 



=Stf^uAA§? 

^s^x^s 
^*x-s£E§s 

JSGD+M'X^iy^ 

im.1fifZ.^l -y-A 

SMAMlXf-A 
Ox2«| 



75BMSKD 

mm® 






»60xl7©V7.g 
H3ULVfc©'J*S 

musts 
wiflra«E(D 



•muss 

•5t4©-^^^-Ag 

• h-7-*>hSl 

•^ff-^x^^v— K© 
•UFOg^S 

•TVSUBfciRMflf? 

• 4=J"7»li 



»£ £ toizytt—frh 5 £18 
Htcfg^ns^ r A*A,fcA,¥ 

ttWA^fcROM*— h 'J 7yt, 
2DDc7)v7.-rA-ry *? Iffiteti 

A,£64|BSt><7>-7:i— AA<A-3T 

fc »J 150R*> «fc -7 £ D 3tM*M£ ^ 

ici*(?& Enffiij?n/-c i J7'fjuA < 




^f^j-AT t^o ztfto 



tfl'!!l < -lflifcA7lf'f- (-S 

7. H'jZ^Kf & C0( J fe ^ A,<7) Z £ , 
CDf im I5»*- Kx H^lj^x 
***» hfrtz<, UOfrUfcU! )\ 

£Cl>£3l(Wc\ We!?), £T* tt 
»W*7T^ fcCOA^s tto 
ht£^h<n&X\ ttSrjTl^o 
Z ft b <7>f -<T fcfifc 7 #«(** 

fi^M&n 'i 7 «f JUfcEPIM L T fc 
tt»#V,* U 7° a ^7 v— *]CfcV 

aa\ 7'f7 , 7u-B(iai^T 

¥mi(^imL^(7)A\ nigic 
>7'°;k R 1 A <- 'J 7 -r jurt^<7)— 

■54% i— — >'4 s fc(7)A < Ml^'bn 



¥*1 



:';7-r;K^$-«-3T 
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132 MSXt'v^^Sfflvt 



MSXtiy^XSJES 










¥*3 






^H4 *&<b^l;*>T ? -:5'£A*lLTEPJi5lj-ttttf, 

u 7 1- ju t) «t 'Mf ^x?r < 4- % o x t a, ft:. 



TWvt'fc, ?tim%^lZ< <Xl£ 

Jc-f'^-rJKA^UfflT-gS 
(7)(i % MSX2ifctiMSX2+v^» 

il^A^T £tzte N MSX-JEfc'j& 
|p$p^ ROM*- h 'J 7-^y 

7- > ^® ® A<3a*?ns ** o 

tizi fr£l &&&&* tS-=L 

-irWoM* i-fli. v y^fA 
Bgfe*-K* SriififlLT, 7*0 > 
*-<7) |*y h £*•;/?■£ £V7)*g££ 
LU-:^ ¥LT, 'J7-T/K 
A^.rf'O^iT*** *«J7-i'il/ 
WtE— .*?* Sril^x ¥*3<7) 
ct 7 fciSIItfJafrftS^Xffo 
frfii •RLE" fc*BA»T N fern 

cau c7) >j 7 1- ;u£ffil«WM;z: fc 

JRTftUa^ RtC*CHECKI* 
77-0\s&tibWM;£y '/7-f 

MIIt®Stz^t£Nfc#£o ®® 
£(7) "Print image*lz % U7-r7U& 
EPJSlJ L fc £ # <7X *— £?jftK*jcd 
fts *TC7) "Information" (Zti *& 
tiXlt t£ b U I ^3fc# Wtf # 



X # £ T" tt if £ I v fcifc^ £<g| 
-3 £ i: I'v'T ti b\ *FI LE" T^OC7) 

#IZ *EDIT" £&.>: £ v !Mli¥ 

* 4 «t 4' *$!«- K " |p«| U @ 
;b* ;:m 'j7-r^U7)4i(z 

Itfc'o RLClfet$&A*Af?--x?£ 

a-ra^ii*. eh* rt^. *l 

ft<7)JSg<7)£Z*T\ +— $— f 

£>*>***.* £7^-* £}T*>iM, 

X%m\,f\.^\ MSX-JEtf*ft(* 
rt^fl^^k^f^OT, B* 
fg^A^Ki/N'-y^ 1 ;^ 

*ft j e , fttf>T f T-*fck ¥*<7)cfc 

7 li*- R::»£iAA,-e^ < 7J*t 
T-fcEPJ8!l1-a£#(z« x ^~A 

£— K3!<7)^lZ&oT^-§>, £C* 

Ltzh, W&k'E—FX' "FILE" £ 
'MR L Tf- 7 £-fe— 7* L J: 7 o 

* L T "SYSTEM" £!ig.$: £ , fe £ 
C0*U 7 -f ^SS"(7)1J®IZH-5>o 



7=— ^^A7J"C*fe6 

<7>^¥4i0>±.£^:: 3 £ v msx 

w& *v*» 7^-s.o T-fo, ;* 

(7) (i+'-y ^ U JgT\ #ti^^^ 
£ffcLv\.xizfc^TLi-5o ^(i 
UU7-f;K^ EPSULT/N"<>y 



£ -fit *9 7 -r ;m*"<7)!j®7!r 

b "PRINr ^il^-f^o ^"LT, 
"PRINT MENU*<7)tfT***?-rJU 

$sks c tzr 5 *^ ■ -5 j& v 4 ^<7)*g^ 

^LJ:o(¥m5) z:n« 
7°U >^-(z-tr-y r- LT N **- K 

U 7-f ;K A,<7)-e-u Wjruofcr 
W if)x EDJB«(z tot fc^Ffig*<A^ 
^z^ SSlS¥7 e, J »— fci: l 
*fetz 6 aja±/r/r s z ^ fc $> § 



z<7)'J7^';K^^ fc*»>y 
7 -r ;uep«iJIS/z t ©-5 fc b APb^I 

t fl!?IJT*«*S(t iTfe)„ 1 1^ <7) 

?%mztfib%frhtzo mm*- 

K<7)4>tZ "FIND" fcl^MtfH 




Lfc 'J 7 ■< ;U7)'Jv$ 43t?:%:Jio 

^^(7)^'"^ + 7 hEP^"^E- K 
7-7*P V 7 r- % ZXitm L 7C7^ 

7 -r ;Hf -f XTEPJSO L T < ft* t> 

<7)^o 7— 7*0 77 h^biffiSU 

7-i-;KzEpsiJLcfc^^-r*^s ^ 
'J^PSO^b^^^b, L^i^*: 
gtA^oTBi^fe T'fc'J 

zA.t£*mx-t>tim-iz u 7 -r ;nt 

■f ^Cgfe- L Ts EPJBOr * Z t «< 
fcHi^ t'v*7fflco U 7 -r ;u^ 

b> Hb* N l^t*v 5 ^-77h7fflC0 l J 
7<;UST\ ifi£S<^^/z l j7< 
/KA.0 -ftfca&izfi^ztti*- 

*^ir-33&s*, s^tzT'^-' ^ 

7— ;u*«g*i-r**\ ^L^-tzL 
Tux<ft jrfe I5*iz*rr* 
.m^,^^M, t' v ^ 7 v 7 h tz^l 






P^rTfeiidSS-i 


X107-24 


XMKtEftf«lltM1-l 


XV'— X7M)tf|l|lfJI' 


(ft)77+- 


MSXV *•»««» 


lf£»^xc=mt J:5fR 
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MSX2+f«jMfci 




o MSX-SERIAL832^^or, MSX%aflM^ 



3*E 



Ifl-T So Mfe*rUo;frDttA/Ctec 



RS-232C5 

$m&fctZ><M& MSXfciifi 

^^ + -c7)MSX-SERIAL232^-(i 
U tf> £ f S MSXffl <T) RS -232C * 

— h y 7-;^ v*»izp«giL$n 
fc-r >?— 7i- x*a > h □— 
;uf z>tz£xnb(ntz 

Hff^-ti-StZtiMSX-DOS TOOLS, 
MSX-CVer.1.1^Ver.1.2, MSX-C 
Library, J f:LTRS-232C'r >* — 

C^>C:fg35£*lfcx HX-R700£U 
^m^CT)^- h 'J 7 vlt 3gTtt 

MSX2+^MSX-DOS2^i:*(7);I^ 

iH^wilff fc pft&c: # % «fc msx- 

TERM#*r<7)i§1gV7 h ^I^T 

«u Xfyfrt-Of— &C000H 

«fc»Jfc*S <, 7*-*£8000HJ: 




ft g k (auto) le^ij ij* $ %mmz 

K^ft 5 " £ i ^ MSX-Cc7)t£ff £ 
*0ffl U y X h 2 <7)M(Bc*main*<7) 

+-c2iB<7>ie5ij£:£ifc ^<7)#±fe 

£\ 7'-tz>7' : 7T'SWc7°P:77 
A(I;j£LT,RS-232(K>? — 7 

fc£?U MSX-S BUGfctVD'y— 

i^«otf/\'7 ?*T& £ 3 (zti N 

7* "7° 'J <7— v a >7°P ^7A/)f 
Jl<75^>*TCOOOH«t U *>*# 1*8 
ife£fiM/j:V.\, *-."§, BASIC-f 
>? — 7°U? — CO^— 7XU7W 
F55EH#ife*rbF65EH#ifei: T'£, 
RS-232Cffl(7)7.^ >y 7 £ LTtiUE 

U 7. h 2 CO^P ^7 A<7)«H9J{Z; 
*#define SBUG*£ l^TSrAtt 

x p >/ \°-r ;ut -s> £ x t-v \* y -ym 

<D7°n?'7l±t)<X'£Z> F55EH# 
J&jfc «b(7) r 7-^xiJ7'(i *BUF" 
tUftftU BASICfllgff) INPUTS: 

H«<? hfcV7r*7i T'^flJfF 
ffl^ N MSX-DOS^ RS-232C<7)M 

fcflJBUFfcJfllffl U "7°P ^5A* S 
36ftLfc6, ^ilC07J>£T'7s?-y 





mttfrkw&j-v& 



0000H 
0100H 

(RSPAT) 
(RSFCB) 
(RTMP@) 
(RSSP@) 

FFFFH 



MSX-DOS 



yP^A 



MSX-COT 

7— 9 . 7.9 v 9 



(6/<-f r-) 



FCB 
(517/V-f k 



7.9 "-j 9 

(512/\'-f (•) 



MSX-CO 



MSX-DOS 



TERM.COM 



rsfcb 
rsstack 

3©X'J7C*S77-r^ 
MSXDOS.SYS&df 



Ei> HSfflaO^j/^— 77^c;u 


/* 

* rslib. h : header file for rslib. z8fl 




* by nao-i on 17. Feb. 1988 dedicated for CoCo 




* by nao-i on 22. Mar. 1998 improved for MSX-SERIAL232 




* (0 Isikata 1988. 1998 




* free to use and copy, but no guarantee or support 
*/ 
typedef struct { /* for rsinitO 




*/ 


char rs len: /* character length '5' - 8' 


*/ 


char rs par; /* parity E , 1 . or N 


*/ 


char rs stp: /* stop bits '1'. '2' or 3 


*,' 


char rs xon; /* XON/XOFF control T or 'N' 


*/ 


char rs ctr; /* CTR-RTS handshaking T or - N' 


*/ 


char rs rlf; /* auto LF for receiver 'T or 'N' 


*/ 


char rs slf; /* auto LF for sender 'V or 'K 


*/ 


char rs sio: /* SI/SO control 'V or 'N' 


*/ 


unsigned rs rbp: /* receiver speed 58 - 19288 


*/ 


unsigned rs tbp; /* sender speed 58 - 19288 


*/ 


char rs tin; /* tine out counter 8 - 255 


*/ 


1 rstbl_t: 




extern char rsinitO, rsopenO. rsputcO. rscloseO. rsbreakO. 


rsdtrO; 


extern int rsgetcO, kbgetcO; 




extern unsigned rslocO, rslofO, rsstatO; 




extern char rsprepO; 




extern VOID rsrestoreO: 




Sdefine RSSTACKS1ZE 256 




sdefine RSFCBSIZE (517+6) 
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MBXS+W: 



tz#)<r>z<ry^v¥—~?T4)V t 

LT^<7)^-VC7)U 7. h 3 f& 7 
-T 77 U — M»[(7)7-b > 77 V - 

n<7) =? -r 77 u -[^c7»i£*s 

char rsprep(tmp, sp, fcb) 
char * tmp, * sp, * fcb; 

trff^-^o 'J* l> 2<7)RKB[*main* 
void rsrestore( ) 

7A%#!7-f»Cv *Kfb-f¥ 
tfftfc'Mtf&S fc<7)fcf 
char rsinit(table) 
rstbLt table; 
$£3£ BASICS COMINI^^- (7) «fc 

mgfanwm(nB*lt. coming 

&*/*?*— f—tmmttift 

B, jdfc***-* #*&«**. IE 

#c*ffs*ititfa^ saw** 
n{f255* ? s$n* 

char rsopen( ) 

BASICS OPEN^^-i: 111 C ct 1 
£ N RS-232C&*— 7°>t-& (7 

n^t* /\'7 7 7- S(*254/\*-r 



char rsclose( ) 
RS-232C^^n— XTSo IE1& 

unsigned rsstat( ) 

BASIC<7)C0MSTAT^£ P% 
tz s RS-232C(7>3fc^%gS^So M 

'Mi(7)#t:*-y KA<lB*£8r0 
int rsgetc( ) 
RS-232C/r<b 1 £^£-©fIT 

char rsputc(c) 
char c; 

RS-232CCZ 1 ^^^^tr^o 



te> Cmmiz&mmJny^A 



JE^tZ&ftfttf £\ [CTRL] 



I STOP \ *-X*#M$titi{£ 1 a* 

unsigned rsloc( ) 

Sfi > <y 7 t- — c Ao x i *ss: 

unsigned rslof( ) 

char rsbreak(n) 
unsigned n; 

n l®(7)7V-^ff %r&&MT%o 

sbbcjBt 3 tint* o a< % a^^' 
&fti£255*sgsfts 

void rsdtr(f) 
char f ; 

f tf & «b tf DTRff-^-SrOFRZ, 




term, c : terminal on MSX-DOS 

for MSX-C 1.1 or 1.2 with MSX-C library 

do not exitO before rsrestoreO 



dedicated for CoCo 
improved for MSX-SERIAL232 



* by nao-i on 19. Jan. 1 

* by nao-i on 22. Mar. 1 

* (0 Isikawa 1988, 1999 

* free to use and copy, but no guarantee or support 
*/ 

-pragma nonrec 
Sinclude <stdio. h> 
Sinclude <msxbios. h> 
Sinclude "rslib. h" 
typedef unsigned uint; 
typedef char void; 

static rstbl_t deftbl = { 

"8'. 'N", -V. 'X'. 'N\ 'N', •»■, *»". 
(uint) 1288. (uint) 1288. (char)8 I ; 



void kbkillO 



/* kill keyboad buffer */ 



while (chsnsO) 
chget () ; 



termO 



kbkillO: 
do I 



Sifdef PRERR 
Seise 
Send if 



if (rslocO) I 

register int cc: 

if ((cc = rsgetcO) == -1) | 

printfCYnError MMHYn". rsstatO); 

chputC?'): 

I else I 

chput((char)cc) ; 



if (chsnsO) i 

rsputc((char)chget()); 
I 



I while (IbreakxO); 
putsCYnStopped. Yn"); 
kbkillO; 



void main(argc. argv) 

int argc; 

char **argv; 

I 

= ifdef SBL'G 

sdefine rsstack ((char*)8xf55e) 

sunder RSSTACKSIZE 

sdefine RSSTACKSIZE (8xf66fl - Bxf55e) 

Seise 

auto char rsstack[RSSTACKS!ZEh 
Send if /* endifdef SBL'G */ 

auto char- rsfcbfRSFCBSIZE]; 



if ((uint)rsfcb < 8x8888 II (uint)rsstack < 8xcl88) I 

puts ("Out of memory. Yn"); 

return; 
I 
if (rsprep(rsstack, &rsstack[RSSTACKSlZE], rsfcb)) I 

putsC'No RS-232-C.Yn"); 

return; 
I 

putsCRunning. Yn"),' 

printf("rsinit() returns WYn". (int)rsinit(Sdeftbl)); 
printfCrsopenO returns XdYn". (int)rsopenO) ; 
printf("rsstat() returns XXHYn". rsstatO); 
termO; 

printf("rsstat() returns %XHYn", rsstatO); 
printfCrsdoseO returns XdYn". (int)rscloseO): 
rsrestoreO : /* Do not forget ! 

return; 
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■MW—i^l ii i H ii ii H ■ wMMlW M M'mttWmmmMtmlM 



(Dt)\ C Wf§T*#l S fca§fg 7°P ?' 
i "f *deftbl"ti x ilffi^ft £ 

£*i;£r£>:££fc7>flSi£fls 'jz^c 

(i\ \l wtztf £\ 7°u 7=i A £*= 

*kbkill"(i, +-^-K(7)/\*-y7 

*termni, Sff L^3t^^IU®lz 
SItfU *-#- K^A^ft 
7c:£^£:£ffT3f?Wco 
*main"(i, iiff <7)i«i t W&% 

RS-232C£i£l#U *term"£W 

^Cif^T. 7'P^7A(7)Ifftt 

il^ MSX-DOS(7)^<(7)yp 



^*vA(i, | CTRL j + [C] ^ I CTRL | 
+ fST0P> -a < }fg;h.S£3&T-t 

•S>J:-9i::&-3T^& T-fciifl? 
- 5 ^-JUT'fi, rCTRLl +rcl^^f 
T&frWtffo&o Zhizz<n7°a 
7 7 A (i N v Ysrestore*T'& £ *& 
*?rft4^fi:|l7t5 £ x MSX- 
D0StzHoT*^#^LTLS^ 
*ZX\ MSX-DOSc^ — ?i 
'J 7 7 <7)F325H#±t!ij!r^ 2 /\*-f h 



*#*&/L 7°D ^7 AA< rcTRLl + 
fCl^ l CTRL 1 + | STOP I frMigT & 

h<n*-t>mZ ti£ t U * r- (7) 
TORET: RET 

lfci;tz®m$:TZ>J.llZt£-oT^ 
Z>COtz 
-XlZ s 7t>7'7T't^/:7< 

fto £-f ''PATCHI*^^*, IS 
itCORS-232C^ ftz^BIOSSrf^ 
BUH*PUSH BCZ-fctlT^Zt 

i^ffimzBJEtztzistxnv-y'Ji' 

-3->o *t LT*RSPREP"(i, : M$ 
Htz n-5 x ij 3P(7)#±-lii£Ir21i U 



q3H> 



■37 

u 
1 



rslib.z80 : library for MSX-C 1.1 or 1.2 
not supporting TOSHIBA HX-R700 

by nao-i on 27. Jan. 1988 dedicated for C0C0 

by nao-i on 22. Mar. 1990 improved for MSX-SERIAL232 

(C) Isikawa 1988. 1990 

free to use and copy, but no guarantee or support 



CALSLT EQU 0001CH 

BREAKV EQU 0F325H 

RAMAD3 EQU 0F344H 

HOKVLD EQU 0FB20H 

EXTB10S EQU 0FFCAH 



inter slot call 
'C break vector 
slot of RAM in page 3 
hook is valid if b0 on 
entry to extended BIOS 



(D 

V 

I 

7 
T 



DSEG 

RSSLOT: DS 

RSFCB: DS 

RSPAT: DS 

RSTMPg: DS 

RSSP8: DS 

SPSAV: DS 

BREAKS: DS 



JINIT 
JOPEN 
J STAT 
JGETC 
JSNDC 
JCLOS 



slot of RS232C 
address for FCB 
address for patch 
address for table 
SP for EXTBIOS 
saving SP 

saving break vector 
entry address to init 



J EOF: 


DS 


2 




JLOC: 


DS 


2 




JLOF: 


DS 


2 




JBACK: 


DS 


2 




JSNDB: 


DS 


2 




JDTR: 


DS 


2 




NUMENT 


EQU 


(S-JINIT)/2 


; # of jump vector 



CSEG 



VVV: 



char 



RSPREP:: 



LD 

LD 

LD 

LD 

ADD 

LD 



INIT1: 



INC 

INC 

INC 

INC 

LD 

INC 

LD 

DJNZ 



LD 

w 



TORET 



PATCH 1 








PUSH 


BC 




CALL 


0FFCAH 




POP 


BC 


TORET: 


RET 




E NORS 








LD 


A. 1 




RET 





; jumped if no RS-232-C 
; return (char)l 
rsprep(rsstack, &rsstack[RSSTACKSIZE]. rsfcb) 

allocate work area 



(RSTMPG).HL 
(RSSP@).DE 
(RSPAT). BC 
HL.6 
HL.BC 
(RSFCB). HL 



LD 


A. (HOKVLD) 


AND 


1 


JR 


Z, E NORS 


LD 


HL. (RSTMP8) 


LD 


A, (RAMAD3) 


LD 


B.A 


LD 


DE. 8*256+0 


PUSH 


HL 


LD 


(SPSAV). SP 


LD 


SP. (RSSP8) 


CALL 


EXTBIOS 


LD 


SP. (SPSAV) 


POP 


DE 


XOR 


A 


SBC 


HL.DE 


EX 


DE.HL 


JR 


Z, E NORS 


LD 


A, (HL) 


LD 


(RSSLOT). A 


INC 


HL 


LD 


E. (HL) 


INC 


HL 


LD 


D. (HL) 


LD 


HL. JINIT-1 


LD 


B. NUMENT 



get address of jump table 

; hook is valid ? 

: no. there is no RS232C 



DE 

DE 

DE 

HL 

(HL).E 

HL 

(HL).D 

INIT1 



HL. (BREAKV) 
(BREAKS). HL 



DE = (RSTMP8) 



HL = top of table 
There is no RS232C 
Slot of RS232C 



DE = jump table 
# of jump vector 

DE = next vector 



set break vector 
; save break vector 
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LD 

LD 



HL. VVV 
(BREAKV).HL 



LD 

LD 

PUSH 

LD 

LDiR 

POP 

LD 

XOR 

RET 



HL. PATCH 1 
DE. (RSPAT) 
DE 
BC.6 

HL 

(BFFDEH).HL 
A 



void rsrestoreO 



RSRESTORE:: 
LD 
LD 
LD 
LD 
RET 



HL. (BREAKS) 
(BREAK V).HL 
HL, 0FFCAH 
(OFFDEH).HL 



; set break vector 
patch for PUSH BC bug 



= (RSPAT) 



return (char)fl 



; restore break vector 
; restore patch 



funtions to call RS-232-C 



CALLRS1: 



LD 

LD 

LD 

CALL 

LD 

El 

RET 



(SPSAV).SP 
SP, (RSSPS) 
1Y. (RSSLOT-1) 
CALSLT 
SP. (SPSAV) 



CALLRS MACRO VECTOR 

LD IX. (VECTOR) 

CALL CALLRS 1 
ENDM 



JPRS 



MACRO VECTOR 

LD IX. (VECTOR) 

JP CALLRS1 



char rsinit(table) 
rstbl t *table: 



RS1N1T:: 



LD 

PUSH 

LD 

LDIR 

POP 

LD 

LD 

CALLRS JINIT 



DE, (RSTMPS) 

DE 

BC. 13 

HL 

A. (RAMAD3) 

B.A 



sizeof (rs_tbl) 
= (RSTMPS) 



JP 



RETCY 



char rsopenO 



RSOPEN: 



LD 
LD 

LD 



HL. (RSFCB) 
C.254 

E.4 



buffer length 
Raw I/O mode 



CALLRS JOPEN 



JR 



RETCY 



uint rsstatO 



RSSTAT: : 



JPRS - JSTAT 



RSGETC: 



RSPUTC: 



inl 



CALLRS 

LD 

LD 

RET 

LD 

RET 

char 
char 



CALLRS 

LD 

RET 

LD 

RET 

XOR 

RET 



rsgetcO 



JGETC 
H.0 
L.A 
P 

HL.-l 



rsputc(c) 
c; 



JSNDC 
A. 1 
C 

A. 2 
Z 
A 



RSCLOS: 
RETCY: 



char rscloseO 



CALLRS JCLOS 



LD 
RET 
DEC 
RET 



A.0 

NC 

A 



uint rslocO 



RSLOCS: 



RSLOFS: 



RSBREA: 



JPRS 
uint 



JLOC 
rslofO 



JPRS JLOF 



RSDTRI: 



char 
uint 



EX 

CALLRS 

JR 

void 
char 



JPRS 
END 



rsbreak(n) 
n; 



DE.HL 
JSNDB 
RETCY 

rsdtr(f) 
f; 



JDTR 



STOP key was pressed 
Time out 
no problem 



return 255 if Cy set 




RS-232C<7)vWi£frfto fztbCDh 
(D ?>- h 'J 7V* ! t7 r- Ztltz 
^□•y r- #-§-£, v-^>7>-7 

;u<7)#±t!tfri^ h ftf Bfifc£ ftStf) 

x\ t(D^(Diumxifrm<Rs- 

232C£Wtrj-f ^ £#T# 5<7) 
tz itz "RSRESTORE" (2, 7'V- 
:$"*■£ b)lst^v3-%7tlzMTtz 

#>(F>b(Dtz£ a 

tnxitmmz, ^mmsruz 

iiff 7°P ft? A£ p >' t'Ol'TZ 

^*KID*ft£*<7>*? ij->if-f 

P^7A^rA*L«t-7o MSX-C& 
i£l tz*b<7)—t&ff3t£-7 T^MZiXi 
TLXs MSX-C LibraryCa"£*l5 
*MSXBIOS.REL*£ *MSXBIOS.H" 
fcffllit" So ^LT, U* h 4(7) 

ATJffliix. ft iT*< A -3 fcJH&rC 

-r;uzLTfc<<7)fci^^feLti 

tl^ *\80"frh\ma\n"£Xi$.U 

trxnfttzfrhtev 
y°a 7=7 ACM U **& 5^:7? 

-r^u*^-r* N fcLnfti^<7)T\ v 

^b, yP^AfcflffS-tfJ:-),, 
vv term"TL7°P ?7 A<nWfftHt 
d <■). MSXASifi^— 5^UC 



ft & (it 1 £„ * tz \ CTRL | + | STOP I 
*-T\ ilfI<7)&*S^&ffft^T 
*" b 7°P ^A^HTTI: ^o 

£ i *7 £ z*>T*4-Ji life L Sin, 



Ajsf ft 



=i>ywjucD¥Jii^(Z)/f 



m80 =rsl lb. z80 

cf term 

eg term 

m80 =term. mac/m/z 

180 ck, term, rslib, msxbios/s, clib/s, crun/ 

s, cend, term/n/y/e:xmain 
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^^Mswfflorwjte^yb-s^cWL/Wr 



^■-717 






rSlE*yS*ftora>5 

5£lzAoT7.*— v— X>fe 

* fc * 7;fll&-&T'<7>Uj-&7. *-*< 

fAfc^oTua^TW o X* 

fc N ZOOZI— ^— (7)C^(il^Ot 

^-c#iT^5WT*:-^L^ ! 
@3. $fU***fc<±A*lT, * 
fc<* A,lzfcgltT20fc U "CTfr 
i£K &3ML#-IZ 

(7) 2 HHZfrfc o TJS3I;* P7h7 

?V? - £ u -5 1> » J fc *!*H<7> A # 

§ -< < jBUJUzlfc 'J *&«) 5 fe <7) £# 
/LT#-£ Lf-o J&l*gl-?-Tfl5!K* 
•y h £>£fflTa £ t tz Lfc(7)-cr 

•y t^ y x-fcm y _htt* fc, £di m 

^ili&<7)*-y h<7U?H v §->a 
•y y-CL^lzAb&i^ U $?* 
i^7h btbtitt. 1>?-*y 

t7hii^77> K£0ft* -y h- 
'v7°lz3_Hf<m-oX^Z>frt£$ 



A,*£blfb*>*>A,%\r>X^Z>Zi: 
XL±lo +WM&* C(7)xU + -y 

h(7)7-F777->a^MSXT* 

x> ba—)ULXfr%>ZtKL£ 

Ltz Z (7) J: -5 [z MSXlzmiS* -y 
h-^mrfSZ^lz^oT, u*> 

i ^ t mmvmw&tfznxwj: 
tz%m<r>mf¥b ? l ir urn y xn 

^Hl^ffl T'# % v v >(i N MSX % 
MSX2, MSX2+<F>£'tlXbX- / T 

-xto tzxu —wn-7y>* 
-mm^m^ v > >x-itim x 

Z<D1- F7^v vatZ|5gibi\ 

msx £ ftggcal&gt i: £ &*3ct % iz 
tt-f >*— 7 x— * £<'jZ^iz # tj 

■fy*#-K ■?})>*—&— K 
TJ-h'J-yv^n-y k fLT^] 
■te-y K>^-7x-7.7fv-h(7) 

T*« % 2rtz-y K>?— 7i- * 
*R— h (S& < ft 'J -?-P&£<7)T\ 

ya<7f<7^-M:fc 
AMP(7)9 t:°>?-f7°<7)=]*;>? — 




7tl^-h^2 t'-y K ^LTtH?} 
tfS- h # 1 fc'-y h 7>tzffi=^ L i To 

(DMSXoy-^zm^Xltt^X^ 

tz-ZTfrfoZfrXTo 

x y — ;K7)1 4 1°> ^ -r ^(7) u ^ ^ 

9-mmztix^$to rt^is 
fc*u ms^^spiz-ea&r % 3 1 

fclZTTLU^KZ^^Tl^1" 
7:-MJ-yv*n'y K7)*|^-li x 

m&l-hXZZTfiK SofcfcO 

iz l «t -5 ^ rn^-r sts inni&ti 

*-t> BASIC*^TfcJt^fiDfB!*{z 



ya-f^77l-h t*Kit" 

L* N Ls 7-F777ya(»ii 
X$%jt viz— ?&G4W& f £<n 

x\ zn%m??z>tmx'h$£ 

•y h <7)a*^- h **** C * -3 

^[US§[J4- ; 5^<feWlzLT s 7 

l-^z^lzLTi^To 
>Se *>\ :w*7h Cit£3St*A^% 

Jt,?nTl^COT\ #*6D(Z(ifi 
«(7)^^ £ MSXT'#§£ $ i± T *> 

#SLct-)o fc*>^A,* g#Xlsl 
LXfrX<tz£l\ 
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t*l L^f:*7 ^ &<7TC'L J: 7 o 

£/£^;¥l&£c7>A'J P#i£T'ct < 
HAS 7 3il7ttf^5<7>* *-/w 

Ei^'J^C ^-»M X'ti 1 ® 
R63feWWS^K* <; 123W 
A#?(ili45 5 l Jx^|30iUTs 

J1S40 5 U^jfoTl^t. 

iSfl5 5 'J(7)*feLED210^ (fit 
5 hV>X|S7 K-y hx67*P7 

m&n& t ^ &&&&? u > h 
S^iiTfFS 3 £ #i»* £ J; -5 (z 

*-y h^^l^SrTSfcflttt 
<b& +v h0N5AS::(J«gZL3. 

#<7)9;jOUh~12*JU h<7)ACT 

— [*AC89(R) £ AC87(R)TT"A\ C 

To 
7— K 7 7 -y v j. (zRtf^Tb l# 



1 43^- v IZ * & 31(7) £ fc U T'To 

W)$-xii.z££&T\ zzx-mm 

HT fc h r> fc(5 -5 #*> A N ftVfl* 
Ttii *& *-? tJSAMTC 

m u -^t v^^,x t, l n £ -a- a,„ 

■7 - K 7 7 >y v a. (7)^[eJS&Elli. 

(DX\ ftpb £#J!B L T < tz $ i \ 

**lTtt; rtS5c7>t«/&£|#03L 

Ti^SLn„ 7— F75yS> 

*? ROM (32768x8 t'-y h) N * 
7 > ? - IC, LED K 7 -i 7"IC, 5*3 
- FIG#& h fcg&ST*T 
3:-ftc7>f&#c7) fe £ £ft*SM 

ffiUJg&tix CM0S<7)<>/\'— ? — 
£©Jtf§£ 3 >?■'>+)— t XM^ 

|g||E*tf*£fc«:d:tK i^2.6+ 
p ^;u*y ~8 . 3+ p "^^ £ T*(7) 

fgfflTSHb? -tf£ z £ ^T'# * T 

R0M(7)t-"— ?/\*;*<75 8 t'-y h 
+ 7tr«yh«x h7>y^^i:i 
trttttz: J: § LED<7) K 7 -f 7'd]S§£ 
*§fi L T LEDtzM $ ftTU * To 
LEW*. lllt'VhU'^^^' 

»#8!tfi m& <4 i- l ) -* 7 



>^-T-^jii?nsTo -j>iS!?n 

fcflWtt5 £? h*CED<75$£0>;x 

**>*-f 5>^(zffli^<bn*To 
^jf7j >£« r< 7" 5 -y ? &XTtt 
£ D?(i'n^7J-;i?rf Ijffl L T l"» i To 
1867 Fi? K£I^B${Z«5£rL-tV2> 
OTFtiiK W> 30 K-y h (5 K-y 
h x 6 23^) (i irnA^ ^ -^ L 
A\^TLTL^j:i^(7)TTo znA N ' 
SSTff ^JbtiT ^%><nX\ APa^ 

0#(z,#jrr L x i ^ j: •) izji*. -&(7) 

T'To 5 tf v h 5 s *- ^ C^JS L tz 
LED^^c 'J 7?(£ ROMIZOI? tiX 
\.^<nX\ ROMWTF'^^TKti* 

A0~A4lzJg|^? tiX l ^ T 

T^^ti, T 7 "^— ~> 3 >(7)JliI 
4-JfOfflLTl^To ^J'i^i^ 
<n* v*— ^1*163 -?W7—jt — 

y3>rt'oTl^t#ATfc^ 

7^0^ IZS/j: ^ /z^(7)/ \°^ - 

tZ^Tji^nT, tfj^Tl^ct^lZ 
^.A^^T'To 16PV-9-(7)^-fb(i 
4 t'-y hT^l^nT, A5~A8(Z 

ftMROMiz-gitizs viz— it 

ti±^T'64S$I S ^ r> X I x S To 
ZtltiROM<7)7' KU^A9~A14<73 

It 6 t'>y hlZ-^^^x-^lZd:^ 



xmtt* J: -5 lZ^oTt^(7)T' 
To :£HM2Kz(2, ^(75(5^ 'Jt" 
— MUSH 3 ^ -f -v -? 1 1 (7) -f > ^ — 

MSX^^ST^ZtlZ^LTtiS 
T1;i*S:ft-£«L3:To 

Bf'Dc7)+ -y h im^x < n^v.x 

^, MSXi: SH5SL J: •=)*<*> fJ*-«± 

LT«)< J^lzHJfFLTLjH^ 
L«fc-5 +>y hiz«12^-vfc(7) 
l¥ L I ftgftSftlNttt^ l ^T l ^Sc7) 

Z <7>»ffi , W«r+^E^T*J # ? ^. 
Ttilfx ffi^tz^fig^-fi-SZltA* 
T#?)(iT'T'To 

ST\ +-y h^rHoT#T^t 
Ltzhs tetP^'btrn^X^utT) 

%$& hx-oxi^ i-mwvittt 

l^p a n ^A^TL^^Z^ fc^fj 
^STo ^^-IzAoTl^zb, i* 

TA\ JE»J#i**&(JjS£*lzL 
Tg|5p a n?rlf^L^(tntfUttS-ti- 



• •7— F77 -y •> J.(Z[JrtHR<7)ROM(Z 
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Artf)^— ^TfcAfcfxfc «fc 7 K* 

<$EI$.TZ>XL£i 

^<$1tX^tztz£tz^£&^£T 
Z(D*>v hcDtf-Sv ICfzltT-fe 
1 2SH21fil fc "a" $ HX l *£ T L , 

tefimiz^tz^xte, immw 
bx^x^it cn^±^(tL 
%tfh<? z.v?TZ> tziiXh, t> 

t\ J&A<1\ Sfrn^-XXM* 

(nfcMXtete^XL <t 9 *\ 
^£-tbu>\ LED/cWiMizm 



-5^ **JJtJ#73(7>£*fttSy\> 
t» ? tt73<7>J£$v \ > ?^>W 3 £ 
iEDaymmtJ36gi.t£\.^ n iz L 

T<fc£l\, LED(J3HM>< 1 *t> 
AoTO&M»*0>T< £|Jrf-5£t: 
■9*>Tf. 

lil*J: i\fc MSXfcgggcTSfci&C: 

^Olzte-oXl^To tztzL. 3 
■§■ £ =i * * * -w k°>#-§-ti-ifc 



<Aftftt>^"CV£<7)T*T ^n 
BtfetbMit?S>a\ z^i^ffl^ 

(Z 3-* J? ? -%tto fcfA^l X7) 

Si^-tt^ te/fU *>£&£* 

-F77 7->i ^W^T^tzSbcD 
W<>^-7i- *!IlS&ttU43 

(D«t-5C, IC£2<@fiSfflLfc*flt 

fc 7 ? tzSlfFT"# 5 z £ T* L «t -5 „ 

Z(7)[l]S§T"fSffl LTU-S74LS574, 
74LS1 07te t h (Z LS? -f 7°<7)TTL 
T-T*\ ALS^ -f 7°(7)TTU HC? -f 




DC 
o — ♦-► 



nmrn® 




t'H-KSIS 



19-KPKU 






I 



REPEAT^^ 



5^gBA7D 







Ao~Ai 




t-D-KHJ 



ROM 



Av~Ai! 

Al2 ~Al4 



Kz3-i-/\'-[l 
(2) 



L_J 



Kz5Y/\'-05 
(1) 



LED 
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T'To tztzL, HC^<7°(lPIb 
1\ CMOS£f£o£#(£*f£ffl<7> 

b L < \t?3> KfJt-Mf &'J& 

7°V >? — tf— h U* A> F->i 

W& yj>*-#-MJMSX<7> 
BASICS »b-r*fcffi*(Z3> h P — 

•y 7°7 p -y ^ r (D-FF^H&) £ JK7 
U -y 7°7 P v 7°(JK-FF£H£)<7) 2 

a^<7>7 >j >y y°y p -y 7Ths§t*To 

D-FFte D WJ-C5& b ftfcr'- 
?£CLKff-§-<7)^ft<7»1 Gfc% 

i *5*- 5im.%Z X-ltf -o £ Q fcB 
^Cffl^LTUito JK-FFliJ 
A* £ k A*«>3Wai*2 «fc -3 T, 

CLKff #(7)SMb<7)|BratZ tazpbug 

H&bti*Q=L Q=HKk J=K=H 
t£hl-£W)*Eti&*-£. J=K=L 

z(7).v/c-3«7)FF^o t <mmt 

frT-9*W}?%£s il^SH 



U^<;K7)STR0BEff-§-*\ — 8gL 

-FFT*>574LS107tt? U7-$ 
ft, BUSY=H£fc*J iTo Wfc 
«>* ifeftx-^&oT^bftft 
I ^S(- * 'J * "to - <7> MSX*r b 
(DT—f^nbOXZ* STROBEff 
f* ? LU^M v % H l^X/Wt^ft 
LfcBH{-D-FFT-*S74LS574 
CfBtt«*ftff 



^7— 








5^— S«— M 


\ 


X^te— ^ 


3-H 


X.y-fe-2/ 


3-K 




1 


P>-^A 


@ 




1 


Fisht 1 






2 


<^>y*/1»-fv , t2 


A 




2 


Take it easy 


a 




3 


KxS'xT.*!? 


B 




3 


Let It be 


b 


1 


4 


TfAa^ZftMVT. 


C 


5 


4 


Oh! My God 


c 


5 


3V/t>3 


D 


5 


BINGO 1 


d 




6 


^IMK^tf •*"?$/# 


E 




6 


Happy Birthday 


e 




7 


3#ttW7ys>£ 


F 




7 


Merry X'mas 


f 




S 


■y-a^x^ 


G 




8 


A Happy New Year 1 


g 




1 


7T7D- 5X# A-ry7S/^ 


H 




1 


A-y^-V^VT. START 1 


h 




2 


Tt^ny tfafl 9*7S/$ 


1 




2 


A-y^VT. 


i 




3 


7X# J^/f^is*? RAIN ! 


J 




3 


< £tr^>VX TURN LEFT 


J 


2 


4 


^>*>~ TT+i'^tJ-VxT. 


K 


6 


4 


- £&it%r*X TURN RIGHT 


k 


5 


5tf$5£ tTVx^IM 


L 


5 


STOP 


i 




6 


zrax-ry Tt-v^vxT. 


M 




B 


•S'-^'-fy' 3S>'.=J;9' T4^Vtp\ 


m 




7 


*>* s/x^tH" • 


N 




7 


^-fv -^E^y ys7rns"£ 


n 




8 


*>I>x"7. 


O 




8 


$??>$ ywxfVT. ;frSNfc=JW 


o 




1 


jf/W'J^W-f 


P 




1 


-f •5 > y^1"l"7-fe %~*fV?Jt\ 


p 




2 


VX/\ ^T^S^IM 


Q 




2 


K^/WfcfS ^t^U7X 


q 




3 


£^\ TtT.T.S^^-y-'f 


R 




3 


tK>^'^ x>yv^7/H 


r 


3 


4 


S's TTT.T.S^^'-y-'f 


S 


7 


4 


ft-ftf-ftp 


s 


5 


±^\ v-ru^x 


T 


5 


K3x>A «dS\V£X&3 


t 




6 


T"\ 7-<U77 


U 




8 


-tz-y^fyx-rvT. 


u 




7 


K^tf i/VUVT. 


V 




7 


7v^\ f^^iOt'K 


V 




8 


x-n.SM' 5*7*7994 


w 




8 


x-yxTi-DVX 


w 




1 


Welcome 


X 




1 


5y>tz-rt> A^A-f^ 


X 




2 


Thank You 


Y 




2 


=f3l^ '5'ir$'Y"^ l J^ 


y 




3 


1 Love You 


z 




3 


7K>y^ It-tfXDAY 


z 


4 


4 

5 


Have a NICE DAY ! 
Good Luck 


[ 

¥ 


8 


4 
5 




{ 




6 


See You Again 


] 




8 


zr+f'Tv^^^ 


} 




7 


Good Morning 


*• 




7 


A^u^yvf 


~ 




8 


Good Night 


— 




8 


#f&s*Hf$9&< 


j> 
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ms&nmi*mi$i?o 7-k 

77 7ya(J v C<7)74LS574(Z# 
# iA £ ftfc 7="'- 9 tZ»OX xfc y -y 
■fe-^fcHtfjLiTo ^C75^-y-tz 
— •^-iilMTfS fc> 74 
LS107(7)CLK5S^(Z(i H U"<Jl/*r 
•b L ^Xil/fc*ffcr*1t»(C-3 

(iA8)A^jtbn*r r*£j= 

1*£<7>T\ Q=L£ftM£-t fft 
*>%, BUSY=UZ&5c7)T'T 

BUSY=l_£ i* •) |fclWrSMtT> 

MSXte 7° 'J > ? -*- MZ|if L U 



^-^^-tti^LT, STROBEff-^- 

7— K 7 7 y •> a lZ&£<7)T*-t 

S^lz&^T, S-iSLftlJft 
HXMtftivz £ #V < otofe U * 
To icco tf>#-§\ 3 * ? ? — <r> t° 
>#-§■« < ftCftfc!BKt*>fti.\J: 

<7>3 **?-(*, a***"-** 

? ? -wm Ltztz b&M&& 

WTT fr— ~?tun 1 #tf><7)^ 




'W"7Mi D>hQ-JL 
'Presented by T.SEKI 
READ D$ 

IF D$="*" THEN END 
LPRINT D$; : ' t^3D>U 
GOTO 30 
DATA S, A,B,C,D,E,F,G,H,I, 
110 DATA R,S,T,lJ,V,l ? J,X,Y r Z,# 




tfh 



J,K,L,M,N p O,P,Q 



/?lZft5*T'bT"to 
3*?*— CS*W*79«y h 

CO L-W £ b s h x yis 9 -T 7°£il 

<r— y;K7)|i| 1 * 1 *<7)|$f £t; 
l *Tfi&-5 z: £ eft 5 *r "b Tf z: 

■V h(7)ICB-93*I£<7>*#<*a<&ft 
tf+7>T*L«t-p fcL*#^M 
a«£5cC*>* J: -5 ft h ft 08ft 

a57>fc(t^jJoT^-9(7)foa-^o 
(7)73>iT*T 

7 — K 7 '7 7~> a ;*tf**lK_b7) v 
i*>/N°— £>T*&5JP1* JP2 N 
JP3, ¥LTJP6fc&#£fo Zl-5 
Lftl*&« MSXT-7- K 7 5r V v 
a.;£ft:£-r]> h p— JUT"#ftv.V7) 
T'-fo »WL fc trytt* < $ ft 




# C (i % $ /cjZ^tz ft * XT <b T'To 

&£* 7-F777->2*^ 

MSXfc«g£^fcWC\ 7- 

K77y^a^ >5>— 7i- 7s & 

MLSTo 3^^^-fiPg^i: 

fc^fttfe^&scor*, &sift<3i 

LiA46-5>f£]#(zMLiAA,T'< /•;?<* 
l\, 7— F77<y^3.^M9Ct# 

l ^fc> W> 5 -f — -> * 7 -f XSr^fft 

-5 c 1 1 J, IEi(g!*< £ riBBl i xft u 

7^7s h*fflT'7°P^vA^-^f? 
-tt^/cltT'To 

^-mc7)7°n?*7A(i, BASICtZ 

«t *jB5^.ft fc^Tt, +>->7°;u7° 
p^'vAi:^ fclU$<7)F*g§ft <7) 
T\ g7>TgS(Z7 7 U->vLTf^ 

READ^T'DATA^+c^P- K 
#-§-?rl5!^mUs 3-K*-^** 

■if nfe^f C7)tf-^(i LPRINT3tT'7° 

3— K4WCJSUfc*V7*^- 

=i-KT-To ^-y-tz— v— MR* 
<7) 3 — K#-§-[Z^/^ L T l ^ c7)T\ 
DATASi+cDt 1 *- ^ (J g ft izm # 
^^.T^T < ff$ l\, DATAX+cT) 
7 : •-^c7)^^T•l^-&JlI#^zy -y-tz 

— i>tf-%* tw^z nz> ct -5 iz& 



^Tl^S1" >>y-b— i?<7)3fBfiS 
SS(Ss 7°n?vAT'{iOTT'# 
f-tt^ ^^^r^-fb^-t+^tZlJ, 
7-F777V2 **5Jbt7)#@ 

LPRINTc7)ft^c7) * ; " (-tz 5 3 P 
>) (i x 7°U>^-(7)^tP-K 

^'JZ^ft ^ -y -tz— ^*<l> *> i^ *> 

fcU ^4 3 c7)3-K#-^-i:^-y 

-tz-v*<— S[Lfti^«^-(i. r- 

i > ^ c7)(ifi(z x* fe * ^> 'CHUT-fi ft 

3- K^i#«-i#mc#y'^x. 

- K^Atift^i)/c(tT\ ^t>3t 

wwaiftt^i-rTfo 

^ilfix MSX%3pptT9— b* 
75 -y ->zl £«* >b tz^L < SI L 
te<7>*>> ttfe f fc7- K75-? v 

a %•* Offl L T MSX%->Sffl L fc<7) 
A^bA^ftUItflgtA^ < ft 
y S Lfc Z(7)J: -5 OHIK^fcd 
ftfe(7)T-t>x 7 0| J>hX^v- 

a ^7;i>*« t o* v y t m$£ tvx^ 

•S + -y h«r«^(fffimtz^fi£T*# 
£T a $>£V&Uf$1z t £^ J j tm 
'MLT^tzATbmVMAsT'bh 
X.fc<7)T(iftv.^vtll-3Tl^i-ro 
4« fee -H^ mifi*'y h^iJfflfc 
t«)T N *L't«f^*frftoTl> 

<Ofe»jft<7)T\ ^L^-tZ^oT 
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1 1 



t-f >?-7x — *£*6is, z<Di oleics- zm&mLtztzii<nimmKb<ntz 



fttz&Ofc-DZ£tM 









35 
* 



=107-84 






-ri/s*— :?i— mussm 



74LS574 
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tF 



8 
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"EMI 
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6 
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D1 
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+ 5V 
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14 



77T 



15 



16 



17 
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19 



yvyy-m 
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+ 5V 



1 



12 



Q 



Ji 

C >CKl2 



77T 



"14 



Vcc 



GND 



0.1/iF 



7 



5V 



74LS107 
1/2 



20 
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GND 



0.1/iF 
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AJII^pp^ *LT^sfe7) 
c z *>sm<n? hi fi<7)3 A#M 

if "f -2> " £ G ft o fc„ ^fflgfl A< 
yp^'^A, **> J #>*<£!& ■¥ 
LT, ttPP^fr'f- Arf-f> 
COT 7 K/f-f * £f & Z £ (Z L tz a 

TU£0 fc U fctf>T\ ¥ A/jTfZH 



&*N£tt 



§Bf L lA? P ? 7 A £fF£##[Zf- 

s^tjuho **tG, ■«, ^ 

Jik>fcf&&lJ 3 ATi£STS*r<b 
*%{foT%«fc7fit>o 

4U 9ft£ft£ L-T90QJR0)*II 

fflffiBK < A,<7)fFp n p £*S;ft- L cfc 1 „ 

ztut, his tetKt'v^m 

TU3U &A,*yflrtV5<7)fc 
fSKiiUs £.m.r>XL£r> tzft 



BAZIRA& SAPPHIRE 




JVJzy P>K ■#??"< 7 



<!m% mm 



K50E^<^D2a-hRPG*f 



p°p(J K5£x*o< VWf—U*/ 

^rA ^A&tfBJto^fc-® 







U"3& Z(7)fFp n p(i7:-tz>y h^ 
-7°T'&htlT£tz 7°P^7A 
fc(toZ^Sl^C7)(znCoTlN-5 
U f£^(Z<l^-tz-y 
\>7—ZfX'£<ZZ$ 
TT#/c4\ fcjfc&L 
XL£itz(7)tz tn 
£*/£:■$*— a<t>t-># 

J: <#x."btiTl.*T % 
ftf£<7)£'A,TA,iSLft 

^•-Ay^fA^F^ 

i7x^^< y#tf>£. 



*> i o fc*®.^*- 'J *TA5Z £ 

A® L fcfro fc— #OiIS(i, 
^•>#ys'?-y #(?>*§$ £ s *y 
i^y x-r -<?>£ y#<* % /i*^-5o 

<%-(7)RPG( J?V -f -V — * t77 

Z.<nfE&l£m&£ W £ y T1££ 
MttSo f4»ra*bL#A^feMlftL 
t:4'i \, 3^ t & < e*£Kc l ^ 
ft, ^fti^-fc^fcfrA^T, 

■J *£*&* fc*ttT*fc N -fivfcA,^ 

'<->G7V-f-t»— *t5^- 

#1fi&T*£l,^Wfcl.\ tfo 



fc**»§ LW: ±7 

*U? HP . 66 

' ' E 5340 







Tl^•&^L;^4'l\ a-^yTt), 
(t£;i&ftl*firAT*fcuivblto 

u*«oT N -Tj(7)^^TBm-r 
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\mrwmM (g@M?is? 



(5*TC7Xr-A£firCT&, *A,fc 

tz^tzh, til(D7-L>$:mULX 
£t)*>7L?tt'?XJ>.Z> ft-oTfr 

r-f tT*%U"C < 5 htotfo 

Kfrhy £t)&iL-?fE-oXfrX 
Alz'MA,X'bhi\ t^M^K 



tUZy g-^T'fcl^^tt^'-A 

fmi*. i5£A,irBAsic-r*fl3:ft 



D^CoZLZ-^WR^Sfc 




I A; 









iBBfrBOT'KAH'X 



=7 9 9—<ra&£tr*£lr*ifrn it* 
U tS^A^'BASicuLTticfc'} 

-SflESAofc'P*? A- ti 



ii^A* £H®c:jliA,T*S#fcl* 
Ttt A*«C/rSttS*» «t fr-o tzX A 
A^o<7\ b-D££A,£A,Xtltz 
*b J: < fc* A,*> * 7 A x fc*o 



i £ o fc fc •* ^-<7> =i -i— x b jfi 



VXTfa, ftA/tofcot, ¥— 

T «HIL'C<^$V.V 



^b£©(2r r *) 



)ww5" 

jfc-fc, £§$&KMLT(iA*»J2j 
£A*iT#i*#fcl*rtffao ^*— A 
<73fc t> L *> £ ff^tf&Sf&f £ S 

Xfefcttte. itt£3*Lfci:3©S 



15 U\, fcgl^LST J: Xbs 

TO"5 fc(7)^BTtZAoTJ00=l*— 
ib KAftSfcSI&T-l'-rAtffc'b 



/LA 



z 



K 

A 

% 

f 



© r BAZIRA S SAPPHIREjISAS 

^to&SMMD^n^ABu ij-ozar* 
A#^riv5£®5©r, */-t-g?rcDB3 

■go ?P?3A©ll8fS3.b£--Ktf?>£± 
*5-5Aa l5*©A=feWT©liEWS^€ 

^ASimuri^-ro ffs^f^fiattt^ 
z?yyvm75F)o zuzmzm. mzmz 

RtfJJitoft^To 

tefc. zn5©Aitufcffs«i(8»r, 
sutUi^o -eur«5frA§t^«)6n 

(10073R) ^WO, fUBL^O*-To 

®f-kyu?t?LBf^ 



Msxv^^>is±r^«r*5 : 6©x A 

*UTAKERU*fcBA*yer-»;iK^r 

«B(«E)7'7.*-C»JlU*-ro ^^©3 
dyftS^, fteA©^P^'5A©^HB^fctt 
-gB^zie-Utt.©^ ~M}S^ttM< 
A»t)QLNfcL/^-r o 

•smnm (EWfffiai^tt* jut©»« 

^^■TlqII>fUr<7i:trL\ 



^y7!>f4 






©7P^^A^|B^Ufc^x : 'f 7o 
®«JiG«M(MSX, MSXEx MSX2+) 
©B^ffio j&HRAM» VRAM©S^o P- 

SS^. «*A©ftBf, E5«) £B3ieUfc 
=&© (ttm, KSlCtt!2^7U^^-^ol^ 

r<^ftiu)o &a\ eo^*is©7?tt, «a 

^©7?©*lg«§tfs «a#©73©ttRlf, 



=107-84 
JRSaJ*EPBIIllJB-n-l 

7.u-x^miiiutfju 

(«03P7.*- 
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SHORT PROGRAM 

I I L A N 







MAGGET 



byXOR 



j£fflf &<7)tz Uotz#^*<j: *> L 

# < to fe L h I vy— A**ft5h.* 9 „ 



SCORE 003S00 




»7 L^A^I&StfJfr' 



?t£T>tz.s 



yn^ J 7A(iT f -^^fiKffl^H 

ftl(7)2*(:^nTl^ -if (7) 
f*K 'J* h 1 (iV-»i(7)7? 

■< Ji'&fF$.T : btz!sb(nb(n \% 
^T*bmmz.tzhh*A,£W)^T 
< ft& I ^<7)T\ 'C? L T?T*> iM, T* 

< ft a* $ xtftt^z t %sm 

*MAGGET.0BJ" £l^7 7"OU 





SCORE 881 708 LIFE 




*ffi«ft < fi£^^1*-£!Si;*) < ^, l llii£Stt#*>^i\ ^^--^^iCjrU^T^-r'-A^ 



h 2£A2jU ftffL«fc?o TS 
l » J: tf—ktf* ^-h^fo 

n& w^fi^tfsa&fo a— v 

tt*J)Tttfc^ ii®-h&3ftftT 

MCi*, Ws ft<7)3«B£*£ 
•?ft**ftNH, S«L $fc£^:bL 
Tl^S<7rC\ 8ftl^-fr5fc«)(Z(i 



«?&7>l4H£#;lfc-9;iT\ Mc7) 
M®(7)^_h(7)(5 -5 (C&ic ? ft 

fto'TL tr>tzh<f— lx*— /"?— 
fc *>&&£, LIFEte 1 7J,£ "'£ 
izmT<ftS tsatfiSv.^ 



SCORE 010300 LIFE 



- ; ■ - •"- ' 




* 17J,S£ 



m^ffc'f. 



MSX(RAM32KW-L) ^j MSX2(VRAMI28KJ-iLL) E^ MSX2 + ^ffl ID 



^FMPAC. *<*l*!J«FM§;g 



?7*-f X^K7-f7' 



|MSX-<-Lo: 



=R0M 




•SHORT PROGRAM 
ISLAND 



zJh-YOUO\3Uk* 



±AM$rM&%&& t a Wat 

'J Ho 3 1 ( i^l *tMpf "£ & 

fc( J v a -f 7. x -f y ? £f$o T N 



A.S 


*-\tim 


G 


wjn-xim 


D 


T-^»$iA^ffl 


RO 


joym 


CH 


momm 


X.Y 


soflam 


JP 


yvyjm 


VX 


m 


CO 


B©J8 


frM^ 


10-170 


wmsi 


180-210 


£<f MI/BE©** 


220-300 


9-£l!J70Ki 


310-360 


x-ynr^y 


370-430 


^oywjy-m. 


440-500 


V-LX-l\-9& 


510-600 


i>x-r y?mm 


610-690 


+t-7)i-?y 


700-1170 


?-$> 


-?vym(Di$ffi 


DOOO 


9-^X'J7©fe^h 


DOSO 


nm(D7,ou— )\/ 


D080 


m(D®m 


DOEO 


BGM©;fS^£li& 


DIOO 


^tzom^mm 


D150 


BGMommmm. 


D1F8 


BGMO^-^l'JT 7 


D1FB 


W80-. ?I'J7 


D1FC 


*2p-;wb 


DSOO 


[U®mz : T-'5> 


D220 


m<dw&t—9 


D360 


zy^MW—y 


D400 


wmmm. 


D500 


BGM©x-£ 



bylGACHAN 

^comf^^'t^So 




*0*A'«fb*fe*H-sSL«)StcJSt^j:t> 



»A/£ffffft«48PBC5>^# 

fee, 8E'\»*nfcu*-ro s 

^>2©lt$Bu S§lJg#l073P3 
r, RTF, IBSJStf57jP3» S3 
JS37iP3, *ureiffCBi^n 
<tftorcso«fro 

tft, It£i&il£*AUrU6IA 
*f«Ufc6lKvfc©fr£, @^5 



amass-ago t<*fsu fcfc* 
SfFf> ftfiSi©=S^SItt@< fc 

r^s-tM,©-^ £7*<££iv. 
SSJ^tefcDs Z©p-*— tt* 

^S^-To .fcgW©BU?a^ 

tfwsnur<£sivta 

t 107-24 

mmsc^ESsaj6-n-i 
Msxvflyvamsj 




SPACE WARS 

byJsEB/SS 

UXh(S154^-v 



&E #T1®^ L fc v j. -t -f > 

gmmsttmtftn ©fft& £ %. 

?-tz-?tz(T)t>\ $$&sm*4a 
(i^M£ftTi^ #& ^ 

J*fE(::l J v a -f 7 r -f -v ? £i£ 
Its, ^ny^A^Uffrsi:. 

s^^?n^o zzx-v i )tf- 



a *#&£ mtte 

*h'y?(J3trt\ 17j^--i:tZ 



W 




• X^l-y i:T-#?>->Ji — x-T >W— A D 



10-60 

70-80 

90-100 

110-130 

140-180 

190-280 

230-250 

280-290 

300-310 

320-390 

400-560 

570-600 

610-890 



m%. 






^P©S©^S) 
^n^5ACD«7*IS 



900-950 

960-980 

990-1010 

1020-1030 

1040-1080 

1090-1H0 

H20-H50 

1160-1190 

1200-1220 

1230-1280 

1270-1370 



S7.ufct*©sas 

'J^b-©50!S 

^7t>Ktfe©^S 



TX.TY 

TH 

ZX.ZY 

X1.Y1 

HX.HY 

S 

B 

K 

X.Y 

XS.YS 

K 

Al 

W 

H 

SC 
HS 
RD 
LV 

Z 



&8i©fRi#7i|ql 



S#©^# 
8$3¥©?S!fluS 
X^f ->^©A^)ffl 
®5i©Xtf-K 
-5x-hffl 

£IZ- 1 tf AS 
S!ft©t73>K& 
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&&fclZfel\ZtJ.i±Z>£z>lZteZ>Z<£ftmm~C£> : g>o 



#E0 



^P-il/lZ»i! 



BASICS ^•<(7)A* < gSlZ7° 
P ?*7 5 >^'tZ^ » ) ffljbZ Z t £ 

¥fttt*ftttJ: < T-#fcfW;*o 
U* v U fWJi:'^^ BASICS 
fcoTLTfc, MSX£;ft(7)S£lI 

v.\, SI#0>#fc3A,<7>+t::fc % &i 

9&j£<7)il<* W?l##<7)tt#te (Z s 
t> !-(*->, t^^±XiXh^ 

A\ LA^L ! &#'b#>3<7)t2 
>*PJJc7)jE^ffii, frfc •) frt z £ 




*"), C<7)P— ^— (7)±g(i. 
M^rMA^'BASICSr^ftJpT 5 

tztfxnmik L fc-ra z. £ T*s 

^l^h^lst., 

n \.tf-i& Venn *_ T*>* L xm 

BASICT'£'-^TiIi®£*? P 
-;i/£1**<7)A\, 1 < fc Z?Jt*>ft«, 



* "0*8* ^ P — ;u $ -ti- 5 J: — A,„ 

#Hfc i^^-y->-^>^ ! 





U*M T.7SJ-y^-*ry7. 


100 


SCREEN 1 


1 10 


WIDTH 32: KEY OFF 


120 


A$=STRING$C INTCRNDC 1 )*30 ) , 32 )+"*" 


130 


S=STICK<0) 


140 


ON S+l GOTO 130,160,130,130,130,170, 


130 


130, 130 


150 


PRINT A$:GOTO 120 


160 


LOCATE 0,24: GOTO 150 


170 


LOCATE 0,0 


180 


PRINT CHR$(27)+"L"; 


190 


GOTO 150 



%A,fr&X:£ *>*»•) Uzi. -A, 
— * <n % tz «fc-A/«ttWT < 

^*Mfj:zy.\ ztuztt-vji,* 

A/£,1 80frT*iM<7)— #_hiz *^ 
-*£ 1 ff#At5Z t C<fc it, 




SP-;bzi-K«ffi5 

a 5 (5 £* fc A^j: AS£ < » § 

2-ffto T*fo, zm-fimz&Si.* 
9 p— ji/An:*#fco(7)"tii ? 

— v;u+— cop> h p— ;un— K 
Z. ti*JC&\\(F) 4" tz#AT £ £ , 

i& 1 H](7)print^:T'/-c < ? a,<7) 

* t— K"C* ^ P — ^UT*# *> ^ o 

J:~5T^i/;-U 






— t!A,ti'A,m$l3S\> Mzte5IA<tH 

TIILfccto 

l^Z^ 4*t*y^f 3^rMT< 

nfc*x.„ ftoz;-5A«tfftt£\ 
fct^LfcZi:(*^oT4 v t^7^o 

K5IJ^^[B$ (0)~B$ (7) (Z^-tl ? 

tiBsx^-f-ofamrze fix, 

^-fomUttiL-C, H#tz3t^:£ 
23(WT(i•f5J?r^-^T•2>^T'rA^ ? 



IW*-ttT*«)*fittOMEJ 



CHR$(255)«ffi5i 

^— ^.o isbL^^X-Ttd.X 

h±r>£7.t°- KASiAfc'tt^ 
L^A^rC^— ^A^^T^Tf^ 

t'tlb 1 ^:^#<±C7)^^ P-JUT- 
Li— o fco^'ito'bAHZ^^P 
-^^ifbtL^l^T-TA^ ? 

BASICtS^S^^ASl^A^, fc 
«) «b A^ ^ P — J Will L I MD/c'o 
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BASIC^IWi 





N 


U*h2 »-V;WF-CDD>hD-JI/I]- 


-K 


100 CLEAR 2000 




1 10 SCREEN 1 : WIDTH 32 




120 A$=" * " + STRING$C3,29)+CHR$C3 1 .> 




130 FOR 1=0 TO 7 




140 R=INT(RNDC 1 )*8)+l 




150 B$=B$+A$+STRING$(R,28) 




160 NEXT I 




170 FOR 1=0 TO 3 1 




180 LOCATE I ,0: PRINT BS 




.190 NEXT I: CLS:GOTO 170 





4^^T<n Ztl(iCHR$(255) 

&3* V 7 ? ?— £«£ ->X'*9-r 

^^Sfbfsc^fc'o c<7>l±K£*iJ 

ffl LT , ST'Il®-tl-CHR$(255) 

_h£CHR$ (255)1? h U-7.-f£ 
t5^ (5b- 







zn^ntoow-©? 

Wm 8X8 K? hc7)>££o/c/\° 

— u-Trft- x-fe o 

Tffifo'f-^tzts bit? 

Z'l^^^TLio Bfc, tz 

t *.Wf r * / <— * "^ >#0 At t\ 

W& «tU rf5SfiV7h*°f^T 

(4, SET ADJUSTS I ^JPMiE 
1 ~8 K-y h^lftmSBfflK: 

-frAStTl^C7)fc BASICU^U 

xa z om&mmz-tt &&> 



U*h3 MID$r§B^^m 

100 CLEAR 2000:DEFINT A-Z 

110 SCREEN 1 

120 FOR 1=0 TO 7 

130 ASCI ) =STR I NGS C 1 , 32 >+"*"+STR I NGS < 7 - I , 

32) 

140 NEXT I 

150 FOR 1=0 TO 8 

160 FOR J=0 TO 7 

170 R=INTCRNDC 1 )*8 ) 

180 B$C I )=B$CI )+A$CR) 

130 NEXT J 

200 B$C I )=B$C I )+LEFT$(B$C I>,32) 

2 10 NEXT I 

220 FOR 1=1 TO 64 

230 PRINT CHRSC 11); 

240 FOR J=0 TO 7 

250 PRINT MIDSCBSCJ), I ,30) 

260 NEXT J, I :GOTO 220 



LUK4 CHR$(255)GDt5E 



100 


SCREEN 1 : W I DTH32 : KEY OFF 


1 10 


A=ASCC"fc")*8 


120 


FOR 1=0 TO '7 


130 


READ L 


140 


FOR J=0 TO 7 


150 


VPOKE A,L 


160 


A=A+1 


170 


NEXT J , I 


180 


DATA 1 ,2,4,8, 16,32,64, 128 


190 


PRINT " ttiXttlCto" 


200 


DS=STRING$C32,255) 


210 


FOR 1=0 TO 2 1 


220 


PRINT D$; 


230 


NEXT I 


240 


FOR 1=0 TO 7 


250 


LOCATE 1,0,1 


260 


FOR J=0 TO30:NEXT 


270 


NEXT I 


280 


GOTO 240 




u:/hn-jb=]-K£$3 



3*3 -PAN. 3©i5*£ ; fc<i:fc:*6 
^Lfc=l>KP-ib=I-KlCOLV 

zozi-i—izttt&nmvm 
M, *L-r#aixo±i^ri5L-L\ 

¥— "¥&£&frat&s £"L£L 






&-C%&Z-5£> 



: 1 07-24 

usx^i3zvymmm 



U*h5 SET ADJUST 

100 SCREEN 1 : COLOR 15,1,1 

1 10 WIDTH 32: KEY OFF 

120 SET ADJUSTC0,0) 

130 FOR 1=1 TO 30 

140 FOR J=l TO 8 

150 SET ADJUSTCJ.0) 

160 FOR K=0 TO 50 : NEXT 

170 NEXT J 

180 IF <VDP<-2) AND &H40)=0 THEN L80 

130 SET ADJUST < , ) 

200 LOCATE 1,0 : PRINT" A" 

210 NEXT I 



BASICC7)W« 149 









HORT PROGRAM 







H 



MAGGET® 



10 ' MAGGET BY XOR 

20 CLEAR 200,&HBFFF:SCREEN0:CLS:DEFINTA- 

Z 

30 AD=&HC000:PRINT"Now readind data. Wai 

t for a minutes." 

40 READ D$: IF DSO"*" THEN POKE AD.VALC" 

&H"+D$):AD=AD+1:G0T0 40 

50 BSAVE"MAGGET . OBJ " , &HC000 , AD- 1 

60 PRINT"completed.":END 

399 ' MACHINE LANGUAGE & SPRITE & F 

ONT DATA 

1000 DATA CD,6F,00,3E,0F,32,E9,F3, AF.32, 

EA,F3,32,EB,F3,CD 

1010 DATA 62,00,CD,CC,00,3E,20,32,B0,F3, 

CD,C3,00,AF,32,DB 

1020 DATA F3,21 ,00,01 ,06, E0, 05, 06,08,05, 

CD,4A,00,4F,CB,3F 

1030 DATA Bl ,57,78,3D,CB,3F,E6,03,47,7A, 

28,04,CB,3F, 10, FC 

1040 DATA CD, 4D, 00, 23, CI, 10, E2, 01, 10, DC, 

21.BD.C9, 11,20,04 

1050 DATA 01 ,40, 00, CD, 5C, 00,21 , 10, 20, 3E, 

2C,CD,4D,00,23,3E 

1060 DATA 70, CD, 4D, 00, 23, 3E, 44, CD, 40,00, 

23,3E,88,CD,4D,00 

1070 DATA 0E.01 ,3A,E0,F3,E6,FC,h6,02,47, 

CD, 47, 00, 21 ,7D,C8 

1080 DATA 1 1 ,00,38,01 ,40,0 1 , CD, 50, 00, 2 1 , 

02,01 ,CD,C6,00,21 

1090 DATA 50, 08, CD, 99, C7, 21 ,60, 18,01 ,A0, 

02,3E,8B,CD,56,00 

1100 DATA 21 ,A0, 18,01 ,20,00, 3E,8A, CD, 56, 

00,21 ,C0, 18,01,20 

1110 DATA 00, 3E, 89, CD, 56, 00, 21 , E0 , 18,01 , 

20, 00, 3E, 88, CD, 56 

1120 DATA 00,21 ,00, 1A, 01 ,20,00, 3E, 88, CD, 

56,00,21 ,20, 1A.01 

1130 DATA 20, 00, 3E, 89, CD, 56, 00, 21 ,40, 1A, 

01 ,40,00,3E,8A,CD 

1140 DATA 56,00,21 ,80, 1A, 01 ,80,00, 3E.8B, 

CD, 56, 00, 21 ,00, 19 

1150 DATA 06, 04, C5, 16,85,06,02,05,58, ID, 

06, 10,7A,93,F5,CD 

1160 DATA 4D, 00, Fl ,23, C6, 02, CD, 40,00,23, 

10,F0,C1 , 10,E8,C1 

1170 DATA 10, E0, CD, 90, 00, AF, IE, 64, CD, 93, 

00.3E.07, IE, BE, CD 

1180 DATA 93, 00, 3E, 08, IE, 10, CD, 93,00, 3E, 

0B, IE, 00, CD, 33, 00 

1130 DATA 3C, IE, 03, CD, 93, 00, 21 ,60,20,22, 

FD,C9,3E,04,32,0F 

1200 DATA CA, AF, 32 , FF , C9 , 32 , 00 , LA, 32 , 07 , 

CA, 06, 62, 21 , 10, CA 

1210 DATA 77,23, 10, FC, 30,32,06, CA, 32, 04, 

CA, 21 ,00,00,22,01 

1220 DATA CA.3E, 05, 32.05.CA, 21 ,00, 1B.3E, 



60,CD,4D,00,23,3E 
1230 DATA 20,CD,4D 
3E,04,CD,4D,00,23 
1240 DATA 3E,60,CD 
00,23,3E,04,CD,4D 
1250 DATA 00,23,3E 
FD, 1 1 ,08,CA,01 ,05 
1260 DATA 00,ED,B0 
C7,22,A0,FD,FB,AF 
1270 DATA CD,D5,00 
3D,57,E6,03,7A,28 
1280 DATA 18,CB,57 
24,24,24,24, 18,09 
1290 DATA 7C,FE,04 
3D,3D,57,E6,03,7A 
1300 DATA 28, 1F.CB 
16,2C,2C,2C,2C, 18 
13 10 DATA 10,7D,FE 
18, 05,06, 03, CD, A3 
1320 DATA C7,22,FD 
CD,4D,00,23,7A,CD 
1330 DATA 4D,00,21 
7A,CD,4D,00,CD,B7 
1340 DATA 00, DA, 38 
28,0E,3A,07,CA,B7 
1350 DATA 20,08,3A 
Fl ,32,07,CA,3A,FF 
1360 DATA 09,87,87 
4D,00,F1 ,06,04,21 
1370 DATA 06, IB, CD 
CA,46,B8,CA,A8,C2 
1380 DATA CD, 10,07 
77,23,3A,0F,CA,47 
1390 DATA 7E,B7,28 
C3, A8,C2,3E,01 ,77 
1400 DATA 23, CD, 10 
36, FF, 23, CD, 10. 07 
1410 DATA E6.07.20 
3F, 06, 04, 77, 18,08 
1420 DATA CD, 10, 07, 
08, 1B.DD.21 , 1 1 ,CA 
1430 DATA 3A.0F.CA, 
C6,C4,3A,FE,C9,6F 
1440 DATA 26,00, DD, 
ED,53,75,CA,2A,72 
1450 DATA CA.22,77, 
DD,5E,01, 16, 00, CD 
1460 DATA EB,C6,ED, 
7B,CA,D5,C1,CD,34 
1470 DATA C7,E5,ED, 
C7.D1 , 19.E5.D1 ,01 
1480 DATA 14, 00, CD, 
D5.C1 , 11, 00, 00, CD 
1490 DATA 47.C7.ED, 
8E,C7,E5,D1 ,2A,79 
1500 DATA CA.CD,8E, 
7D,CA,ED,4B,75,CA 
1510 DATA CD,34,C7, 
47, 07, ED, 53, 81 , CA 
1520 DATA ED,5B,7D, 
C7,E5,D1,ED,4B,7F 
1530 DATA CA.CD.47, 
CA,CD,8E,C7, 11, 0F 
1540 DATA 00,B7,ED, 
8E.C7, 1 1 ,0B,00,B7 
1550 DATA ED, 52, DA, 
30,27,CB,3F,57,3A 
1560 DATA FF.C9.AA, 
3E,80,A1,07,AA,28 
1570 DATA 12.2A.81 , 
2A,83,CA,CD,91 ,07 
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SHORT PROGRAM 



1580 DATA 22,83,CA,DD, 
81, CA, 19,3A,06,CA 
1590 DATA 87, 16,00,5F, 
CB,7C,C2,D6,C5,01 
1600 DATA 00,01 ,B7,ED, 
01 ,26,00,ED,5B,83 
1610 DATA CA, 19.DD.75, 
ED,42,E1,DA,D6,C5 
1620 DATA 01.B0.00.B7, 
E5.E1 ,DD,7E,01,CD 
1630 DATA 4D,00,23,DD, 
DD,7E,03,E6,01 ,87 
1640 DATA C6, 06.47.3A, 
04, 78, 87, 87, CD, 4D 
1650 DATA 00,23,DD,7E, 
0A, 18,07,E6,02,EE 
1660 DATA 02, 87, C6, 04, 
FE,08,CA,D3,C4,DD 
1670 DATA 7E,03,CB,47, 
E6,3E,C2,D3,C4,3A 
1680 DATA 31 ,CA,3C,32, 
08,00,06,08,7E,B7 
1690 DATA 28,06, 19, 10, 
77,23,DD,7E,01,77 
1700 DATA 23, AF, 77, 23, 
2A,7B,CA,CD,8E,C7 
1710 DATA E5,C1 ,2A,77, 
B7,ED,42,DA,82,C4 
1720 DATA D5,C1,2A,77, 
00,C5,CD,64,C7,C1 
1730" DATA D5,E1,3A,78, 
91,C7,29,E5,D1,E1 
1740 DATA 73,23,72,23, 
C7.55, IE, 00, CD, 64 
1750 DATA C7,D5,E1,3A, 
CD, 31 ,C7,29,E5,D1 
1760 DATA El, 73, 23, 72, 
Dl ,CD,4D,00,06,05 
1770 DATA CD,A3,C7,DD, 
23,FD,23,FD,23,FD 
1780 DATA 23, FD, 23, CI , 
C2,DD,21,32,CA,FD 
1790 DATA 21 ,28, IB, 06, 
CA,91,C5,67,DD,6E 
1800 DATA 00, DD, 56, 07, 
01,DD,75,00,7C,E6 
1810 DATA FE.FE, 14, CA, 
C5,DD,66,03,DD,6E 
1820 DATA 02, DD, 56, 05, 
03,DD,75,02,7C,E6 
1830 DATA FE,CA,EC,C5, 
E5.E1 ,DD,7E,01,CD 
1840 DATA 4D,00,23,DD, 
3A,0D,CA,E6,08,CB 
1850 DATA 3F,C6,08,CD, 
4D, 00, 26,00, DD.6E 
1860 DATA 03,3A,FE,C9, 
CD,8E,C7, 1 1.0A.00 
1870 DATA B7, ED, 52, 30, 
3A,FD,C9,5F, 16,00 
1880 DATA B7, ED, 52, CD, 
ED,52,DA,92,C6, 18 
1890 DATA 05,06, 02, CD, 
19,FD,23,FD,23,FD 
1900 DATA 23, FD, 23, CI, 
CA,AF,C1,21 ,00, IB 
1910 DATA 3E,D0,CD,4D, 
00,21 ,6D,C8,CD,99 
1920 DATA C7, 06, 00, CD, 
B7,28,F9,CD,38,C8 
1930 DATA C3,70,C0,C3, 



32, 10,CA,AF,DD,77 
1340 DATA 00,FD,E5, 
D3,C4,3A,31,CA,3D 
1950 DATA 32.31.CA, 
3E,D1,CD,4D,00,C3 
1960 DATA 96.C5.3A, 
7E,03,CB,47,28,06 
1970 DATA CD.9F.C6, 
CB, 57, 28, 04, 23, 23 
1980 DATA 23,23,22, 
27,B7,ED,52,D2,D6 
1930 DATA C5.21.02, 
01,E8,03.EB,CD.64 
2000 DATA C7.7B.C6, 
20,06,7B,32,03,CA 
2010 DATA 18.04.3D, 
00,E5,CD,64,C7,E1 
2020 DATA 4B.42, 18, 
CA,BB,C2,D6,C5,3C 
2030 DATA 32.04.CA, 
C5,3C,32,05,CA,C6 
2040 DATA 17.67.2E, 
A2,00.CD,DD,C6,C3 
2050 DATA D6,C5,3A, 
3F,C6,C3,EC,C5,CD 
2060 DATA CE.C6.3A, 
C6, 18, 67, 2E, 02, CD 
2070 DATA C6.00.3E, 
3C,32,00,CA,C9,3E 
2080 DATA 01 , IE, 00, 
CD,33,00,C9,3E,01 
2030 DATA IE, 04, CD, 
93,00,C9,3E,01 , IE 
2100 DATA 00, CD, 93, 
00,B7,ED,52,F5,C1 
21 10 DATA 79,32,74, 
06,00,CD,47,C7,7A 
2120 DATA B3.C0.3A, 
7F.C8, 1 1 ,FF,FF,C9 
2130 DATA C5.E5.AF, 
54,28,01 ,0C,A9,28 
2 140 DATA 01 ,23, ED, 
6F,22,32,C7,7D,E1 
2150 DATA C1.C9.55, 
CB,38,CB, 19,30,01 
2160 DATA 19.CB.23. 
F5,69,60,CD,8E,C7 
2170 DATA 4D.44.EB, 
F1,D8,7A,2F.57,7B 
2180 DATA 2F.5F, 13, 
D9.CB.23.CB, 12, ED 
2130 DATA 6A.ED.42, 
10,EE,D9,C9,78,B7 
2200 DATA FA.89.C7, 
B7,F0,37,C9,7C,B7 
2210 DATA F0.7C.2F, 
FE,24,C8,CD,A2,00 
2220 DATA 23, 18.F6, 
F8,C9,F5, 2 1 ,20,04 
2230 DATA 1 1,85,CA, 
0D,CA,3A,06,CA, 16 
2240 DATA 00, 5F, 13, 
C8,7D,B7,20, 1E.7C 
2250 DATA E6.0F.20, 
3C,32.06,CA,CB,47 
2260 DATA 28.0B.3A. 
32.0F.CA.21 ,C4,CA 
2270 DATA 06.04.C5, 
10.FD.77.2B.C1 , 10 
2280 DATA F5.C1, 10, 
1C.21 .85.CA, 11,10 
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2290 DATA 00,06, 10 
11, CI, 17, CB, 1 1 ,77 
2300 DATA E5 , 19,71 
1 1 ,20,04,01 ,40,00 
2310 DATA CD,5C,00 
08, CA, 1 1 ,9F,FD,01 
2320 DATA 05, 00, ED 
00,AF,CD,C3,00,C9 
2330 DATA 20,20,20 
30,30,30,30,30,20 
2340 DATA 20,20,40 
91,91 ,24, 2D, 2D, 20 
2350 DATA 47,41 , 4D 
2D, 2D, 24, 00, 00, 00 
2360 DATA 00.FF.C7 
00 , 00 , 00 , 00 , 00 , 00 
2370 DATA 00,00, 12 
00 , 00 , 00 , 00 , 00 , 00 
2380 DATA 00,00,38 
00 , 00 , 00 , 00 , 00 , 00 
2390 DATA 00.FF.ED 
00 , 00 , 00 , 00 , 00 , 00 
2400 DATA 00,00,00 
00 , 00 , 00 , 00 , 00 , 00 
2410 DATA 00,00,00 
00,00,00,00,00, 00 
2420 DATA 00,00,0 1 
00,00,00,00,00, 00 
2430 DATA 00,00,80 
00,00,00,00,00, 00 
2440 DATA 00,00,48 
00 , 00 , 00 , 00 , 00 , 00 
2450 DATA 00.FF.F1 
00 , 00 , 00 , 00 , 00 , 00 
2460 DATA 00.FF.B7 
00 , 00 , 00 , 00 , 00 , 00 
2470 DATA 00,00, 0E 
00,00,00,01 ,01 ,01 
2480 DATA 03.03.E3 
18, 10,20 ,00,00 ,00 
2490 DATA 80,80,8E, 
30, 10,08,01 ,01 , 1 1 
2500 DATA 03.03.E3, 
18, 1 1 ,20,00,00, 10 
2510 DATA 80.80.8E, 
30, 10,08,00,00, 18 
2520 DATA 3D.2F.3B, 
3B.01 ,00,00,00,00 
2530 DATA E0.30.D0, 
00 ,80, 00, 00, 39, 7F 
2540 DATA 5F,7B,77, 
7E,3B,01 ,00 ,E0,F0 
2550 DATA 38,D8,E8, 
FC,E0,C0,7A,34,3A 
2560 DATA ID, IE, 00, 
34,7A,35,0E,06,04 
2570 DATA 00,04,86, 
88,00, 16,09,50,82 
2580 DATA 08,40, 12, 
48, 1 1 , AA,3B,E5,BE 
2590 DATA 67.D5.6A, 
EA,BF,D9, "*" 
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MAGGET 



10 ' MAGGET BY XOR 

20 CLEAR 200.&HBFFF 

30 BLOAD "MAGGET. OBJ ",R 

40 END 



10 REM 1990 IGACHAN SOFT VOL.8 r Kai - k 

yo j PROGRAM LIST 

20 REM :::::::::: SETTING :::::::::: 

30 SCREEN 1.2,0: COLOR 15,0,0: KEYOFF : W I DTH3 

2 : CLS : DEF I NTA-Z : CLEAR200 , &HCFFF 

40 DEFUSR=&HD000 : DEFUSR 1 =&HD020 : DEFUSR2= 

&HD080 : DEFUSR3=&HD0E0 : DEFUSR4=&HD100 

50 DEFUSR5=&H90:PRINT"*j:-5<e 1 2->Z< ti ! " : DEFF 

NA=CCS=7)ANDVX>-4)-(CS=3)ANDVX<4) 

60 DEFFNS=ST I CK< )+ST I CKC1 )+ST I CKC 2 ) : DEF 

FNG=STRIG(0)+STRIGC 1 >+STRIGC2) 

70 DEFFND=VALC"&H"+MID$(A$, J*2+l , 2 ) ) : ONS 

TOPGOSUB690 : STOPON 

80 FORI=0TO3:READA$:FORJ=0TO3 1 : VP0KE1433 

6+ I *32+J , FND: NEXT J , I 

90 FORI=0TO1 :READA$:FORJ=0TO3 1 : VPOKE1408 

+I*32+J, FND: NEXTJ, I : READAS 

100 FOR I =0TO3 : FORJ=0TO7 : VPOKE 1 472+ 1 *G4+J 

, VAL("&H"+MID$CA$, I*16+J*2+l , 2 i> ) : NEXT J, I 

1 10 I=0:READA$:FORJ=0TO31 : VP0KE8 192+J , FN 

D : NEXTJ 

120 E$=CHRSC27) + "Y":FORI=0TO8:READJP(. I ) : 

NEXT : SOUND 1,0: S0UND3 , : S0UND5 , 

130 FORI=0TO13:READA$:FORJ=0TO3 1 : POKE&HD 

000+I*32+J,FND:NEXTJ, I 

140 FORI=0TO3:READA$:FORJ=0TO63:POKE&HD5 

00+I*64+J,ASCCMID$CA$, J+l , 1 ) ) : NEXT J , I 

150 REM :::::::::: BACKGROUND SETTING :: 

160 CLS: A$=STRING$C32,200)+STRING$<32,20 

8>:B$=STRING$(32, 192) 

1 70 LOCATE0 , : PR I NT"-?-t"5i;t**:t)*lOI;tl7l*;»=t= 

=t=**I'?i'7"B$B$A$B$ : U=USR< ) 
180 REM :::::::::: TITLE :::::::::: 
190 CLS:GOSUB630:PRINTE$"%+Kai - kyo"E$" 
*$1390 IGACHAN SOFT VOL . 8 "ES" , CRUSH SPAC 
E KEY ! " 

200 A$="05Ll6DEFEDFAB-AB-06CD05rt8L6404AB 
05CDEFGAL l 6B-AGAB-AGFAGFGAGFDEFGFEFEC+D2 

2 10 GOSUB680:FORI=0TO1 : I=-FNG: U=USR1 C0 ) : 

NEXT:R0=1 : CH=5 : IFFNS=1THENCH=10 

220 REM :::::::::: WORK AREA SETTING ::: 

230 POKE&HD380 , 60 : P0KE&HD38 1,16: P0KE&HD3 

82, 12:P0KE&HD383, 1 5 : P0KE&HD384, 60 

240 P0KE&HD385 , 240 : P0KE&HD386 ,12: POKE&HD 

387, 15:POKE&HD360,44:POKE&HD361, 10 

250 P0KE&HD362 , : POKE&HD363 ,10: POKE&HD 1 F 

C, 192:POKE&HD1FD,210 

260 U=USR1C0):GOSUB610:PRINTE$">4, ROUND " 

RO;E$"',REST "CH:GOSUB630 

270 RESTORE 1030: FOR I = 1 TORO : READAS , CO : NEX 

T : I =0 : K=0 : FORJ=0TO 1 3 : P0KE&HD364+K , FND 

280 J=J+1 :P0KE&HD365+K,FND:P0KE&HD366+K, 

12:P0KE&HD367+K, 1 5 : K=K+4 : NEXTJ 

290 FORJ=0TO13 : POKE&HD400+J , VALC "&H"+MID 

$C A$ , J*2+29 , 2 ) ) : NEXTJ : G0SUB6 1 

300 GOSUB650 : POKE&HD 1 FE , : POKE&HD 1 F7 , : P 

OKE&HD 1 FB , : VX=0 : X= 1 : Y=44 : JP= 1 

3 1 REM :::::::::: MA I N ROUT I NE :::::::: 

320 U=USR KB): U=USR2 C ) : S=FNS : VX=VX+FNA : 

X=X+VX : P0KE&HD36 1 , X 

J30 Y=Y+JPCJP):U=USR4C0): IFPEEKC&HD1F7 ;< 

>0THENY=Y-4 : JP= 1 : POKE&HD 1 F7 , 

340 IFJPO0THENJP=CJP+1 )M0D9 : P0KE&HD362 , 

CJPM0D3)*4 

350 IFY>128THEN450ELSEIFY<10THENY=10 

360 POKE&HD360, Y: I FX<20THENX=20 : GOTO320E 

LSE 1 FX>230THEN370ELSE320 

370 REM :::::::::: ROUND CLEAR ::::::::: 

380 1FY>60THENX=230:GOTO320ELSEGOSUB640: 



■ 
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SHORT PROGRAM 






FOR I =0102130 : U=USR KB): U=USR2 ( ) : NEXT 

390 A=l :GOSUB660 

400 PRINTE$"K*ROUND CLEAR !": RO=RO+ 1 : FORI 

=256TO120STEP-1 :PUTSPRITE8, C I .60), 15,3 

410 PUTSPRITE3, CC I +240 )M0D256 . 6kD ) , lb,3:P 

UTSPRITE0, (C 1-I¥15)M0D256,Y), 10, IM0D3 

420 U=USR 1 C ) : NEXT : A=8 : C0=9 : GOSUB660 : I FR 

0=1 1THEN5 10ELSEFORI=0TO50 

430 PUTSPRITE0, (. 1 15+RNDC 1 )*10, Y+RNDC 1 )*1 

0), 10, IMOD3:NEXT:GOSUB6 10:GOTO220 

440 REM :::::::::: OH! MISS ! AND GAME 

VER! :::::::::: 

450 GOSUB640 : FOR I =YTO0STEP-2 : PUTSPR I TE0 , 

CX, I ), 10,0:MEXT:FORI=0TO209STEP5 

460 PUTSPRITE0, CX, I ), 10 , 2 : NEXT : FORI =3 1T0 

0STEP- 1 : S0UND6 , I : SOUND? , 55 : S0UND8 , 1 6 

470 SOUND 11,20: SOUND 12,20: SOUND 13,0: NEXT 

:CH=CH-1 :PRINTE$"*+OH! MISS! !" 

480 FORI=0TO500:NEXT: IFCHO0THEN220ELSEP 

R I NTE$ " %+GAME VER ! " 

430 A$="T 1 20L 1 605AGFEAGFEB-AFEB-AFE06C05 

GEG06C05GEGAB-AG+A4AGFEAGFEB-AFEB-AFEDEF 

GAG+AB06C805B806C4" 

500 GOSUB680:POKE&HD360,&HD1 :FORI=0TO1 : I 

=-FNG : U=USR 1 C ) : U=USR2 < ) : NEXT : GOTO 180 

5 1 REM :::::::::: ALL ROUND CLEAR ! : : : : 

520 F0RI=21T017STEP-1 : LOCATES , I :PRINTSTR 

I NG$C 32 , 184): FORJ=0TO3 1 : SOUND0 , J 

530 S0UND6, J:S0UND7,54:S0UND8, 16: SOUND 12 

,20 '.SOUND 13,8: NEXT J, I :FORI=0TO500 

540 NEXT: A$="05L12DEFA2DFAB-2DFB-06CD05B 

-06CD05B-06CD05B-06DD+FD+D2" : GOSUB680 

550 FORI=YTO128STEP4:PUTSPRITE0,C 120, I ), 

10,0: NEXT : PR I NTE$"x.< CONGRATULAT I ONS ! " 

560 REST0RE1 140 : FOR I = 1 20TO240STEP2 : PUTSP 

RITE0, C I , 128) , 10,2:NEXT:FORI=0TO3 

570 FORJ=240TO0STEP-2:PUTSPRITE0,CJ, 128) 

,10,1: NEXT : FORJ=0TO240STEP2 

580 PUTSPRITE0, CJ, 128), 10 , 2:NEXfj, 1 :CLS: 

GOSUB630:GOSUB650:FORI=1TO1 1 

530 READAS: LOCATE 16-(LEN(A$)/2), 1*2: PR IN 

TA$: FORJ=0TO300 : U=USR2C0 ) : NEXT J , I 

600 U=USR2C0):GOTO 600 

6 1 REM :::::::::: SUB ROUT 1 NE ::::::::: 

620 FORI=0TO15: LOCATES, I :PRINTSPC(31 ) : NE 

XT : RETURN 

630 FORI=0TO31 :PUTSPRITEI , C0 , 209 ): NEXT: R 

ETURN 

640 POKE-609 , &HC9 : U=USR5C ) : RETURN 

650 U=USR5 < ) : POKE&HD 1 F8 , : POKE&HD 1 F9 , &H 

D5 : U=USR3 C ) : RETURN 

660 FORI=ATOCO:FORJ=0TO15:PUTSPRITEI , CVP 

EEK C &H 1 B0 1 + I *4 ) , VPEEK ( &H 1 B00 + 1 *4 ) ) , J , 3 

670 NEXTJ:PUTSPRITEI , <0 , 209 ) : NEXT I : RETUR 

N 

680 U=USR5C0):PLAY"O5V13T120XA$; ", "05V1 1 

T120R17XAS; ", "O5Y9T120R7XA$; ": RETURN 

690 STOPOFF : SCREEN0 : WIDTH80 : GOSUB640 : PR I 

NT "STOP! ! ! ! ! " : END 

700 REM :::::::::: DATA OF SPRITE PATTER 

N :::::::::: 

710 DATA 030F1B313B7F7C7B37D7E37C7F3F3F0 

F80E0B0 18B8FC7CBCD8D68E7CFCF8F8E0 

720 DATA 071F2E446E877BFDFDFB60 1F3F3F3F0 

F00C0E070F0F8F8F8F0E61FFFFEFEFCF0 

730 DATA 0003070E0F1F1F1F0F67F8FF7F7F3F0 

FE0F8742276E1DEBFBFDF06F8FCFCFCF0 

740 DATA 000D122D5F7FFFFF7FFFFF7F7F3E050 

3603068F4F4FAFAF4FAE3F5EA54A81000 

750 REM :::::::::: DATA OF CHARACTER PAT 

TERN :::::::::: 

760 DATA FFFFFFFFFFFFFFFF00FFFFFFFFFFFFF 

F0000FFFFFFFFFFFF000000FFFFFFFFFF 

770 DATA 00000000FFFFFFFF0000000000FFFFF 

F0 00 000 00000 0FFFF00 000 000000 000 FF 

780 DATA 7BBD5BA747932954400000000400000 



04000 1 1004400AA0055AA55EAF73F0C00 

790 REM :::::::::: DATA OF CHARACTER COL 

OR :::::::::: 

800 DATA F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F 

0F0F0F0F0F0F0C0E0405070F0F0F0F0F0 

8 10 REM :;:::::::: DATA OF JUMPING ::::: 



820 DATA 4,-4,-4,-3,-2,-1,1,2,3 

830 REM :::::::::: DATA OF MACHINE LANGU 

AGE :::::::::: 

840 DATA 2100181 1 00D20 1C000CD53002 1 20D2 1 

1C0D201A000EDB0C90000000000000000 

850 DATA 21S0D21 100 1 A0 1 2000CD5C003A00D23 

2FFD1210 1 1A1 100D20 1 1F00CD5900 3AFF 

860 DATA D1321FD22AFCD1 1 1 20 1 A0 1 A000CD5C0 

02AFCD1 1 12000ED5222FCD13AFED13C32 

870 DATA FED1FE05D83E0032FED121C0D222FCD 

!C 9000000000000000000000000000000 

880 DATA 06002164D31 1 00D4 1 A4F7E8 1 7723 1 3 1 

A4F7E8 177232323 130478FE07DA88D0 2 1 

830 DATA 60D31 1 00 1 B0 1 2800CD5C003AFBD 1 3C3 

2 FBD1FE10D80 00 000 00 00 00000000 0000 

300 DATA 3E0032FBD12100D406004E3E0031770 

47823FE10DACAD0C90000000000000000 

910 DATA CD90003E5032A0FD3ED132A1FD3EFB3 

2A2FD3EC932A3FD3ECD329FFDC3000000 

320 DATA 2164D30E00CD14D10C7923232323FE0 

3DA05D1C93A60D306F88046B8D03A60D3 

930 DATA 06108046B8D8233A61D306F080462BB 

8D02 33A6 1D306 1080462BB8D83E0132F7 

940 DATA D1C9000000000000000000000000000 

0F33AFAD13C32FAD1FE10D83E0032FAD1 

950 DATA 2AF8D15E3E02CD9300 1C3E04CD33002 

37E06E0805F3E06CD9300237E06E0805F 

960 DATA 3E09CD33003E0ACD33003E081E10CD3 

3003E0B1E10CD3300 1E103E0CCD33003E 

370 DATA 0D1E01CD3300235E3E07CD33002322F 

8D17BFEC0D82 100D522F8D1C3 

380 REM :::::::::: DATA OF B.G.M ::::::: 

330 DATA "~! '3x! ' l~9Clx!<9~! )9x! )l~3*lx! 
*9P!+9U!+1_9, 1U! , 9U ! -9U ! +1U9 ) 1U ! C9" 
1000 DATA "a! <9*!< 1x9)1* ! )9x ! *3* ! * 1x3+ 1* 
!+9x! ,9~! , l-59-l~!-9~<. 1~=, lx>*l~? ) 1" 
1010 DATA "o!*9^! + l->9, l->!-9->! .9->!/l~9< lo 
!C9*!>9¥!*1¥S+1¥1 ,9¥ I -9* ! . Ix9< 1* ! C9" 
1020 DATA "x! C3* ! )1^3*lS!+9o! )9~!*1x9+1-j 
! ,9~!*3~!+l~9, l~!+9~<, 1~=-1~>. 1~?/C" 
1030 REM :::::::::: DATA OF CLOUD :::::: 

1040 DATA 202240406060408020A040C060E002 

0002000 100FF00FF00FE000 100 , 7 

1050 DATA 4040708040C0D100D100D100D10002 

FFFE00 3 00 0000000 00000 00 . 3 

1060 DATA 2060808020A080C0D100D100D10003 

FEFCFE03FEFCFE000000000000 , 4 

1070 DATA 303080E0D10OD100D100D100D10000 

05FC0000000000000000000000 , 2 

1080 DATA 8090703070C070D070E0D100D10000 

FB00FAFE00FD00FC0000000000.5 

1090 DATA 3020406050A0D100D100D100D10001 

0502050 1050000000000000000,3 

1100 DATA 3070308030E0D100D100D100D10003 

FC030302000000000000000000.3 

1110 DATA 606040C0D100D100D100D100D10001 

02040000000000000000000000,2 

1120 DATA 8070808020C0D100D100D100D10000 

FCFE0304020000000000000000.3 

1130 DATA 303080C680E0D100D100D100D10004 

000000FC0 00000000000000000, 3 

1140 REM :::::::::: DATA OF ENDING MESSA 

GE :::::::::: 

1150 DATA STAFF, PROGRAM 7,Y. IGARASHI, 

7 GRAPHIC 7,Y. IGARASHI, 7 MUSIC 7 

1160 DATA Y. IGARASHI, , 1990 IGACHAN SOFT 

VOL.8, r Kai - kyo j , 77 THE END 77 
1170 REM 1990 IGACHAN SOFT VOL.8 r Kai - 

kyo j STAFF/PROGRAM etc. Y. IGARASHI 
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SCREEN l , 2 : W I DTH l G : KEYOFF : COLOR 15,1,1: 
LOCATE3, l0:PRINT"D>n°l'Jl.faf . " 
40 -TURBOON 

5 DEF I NTB-Z : D I MXC 8 , 3 ) , YC 8 , 3 ) , TXC 4 ) , TY C 4 
),TH<4),FXC4),FY<:4) I TC4),PXC8),PYC8),ZX< 
2),ZYC2),HX(4),HYC4),S<:4),XK4), YK4),BC 
4),TK19),T2C19),C<:9>,KC4) 
60 FORI=0TO4:SC I )=I+4:HX( I >=RNDC l >*l00+7 
8 : HYC I )=38 : KC I )=RNDC 1 )*33 : READJ : CC I )=J : N 
EXT I :FORI=0TO8:READJ,K:PXC I >=J:PYC I >=K:N 
EXT I : GOTO 1 000 : DATA3 , 11,8,9,14,0,0,0,-1,1 
,-1,1,0,1,1,0,1,-1,1,-1,0,-1,-1 
70 •■■■■ ^^h'WW. 

80 A=. 19635:FORI=0TO8:FORJ = 1TO4:XC I , J-l ) 
=COSCA*I )*J*A1 : YC I , J-l >=SINCA*I >*J*A1 : NE 
XT J , I : RETURN 
90 —— 'M/J.O'?')?- . 

100 FORI=0TO4:BC I )=0:TXC I )=B:XK 1 )=0:NEX 
T I : GOSUB 160 : G0SUB4 1 : RETURN 
110 ' ••••• f^yPlDvt-f . 

120 FORJ=0TO4: IFTXC J )=0THENTXC J >=XS: TYC J 
>=YS : TC J >=0 : B=X-XS : C=Y~YS : FXC J >=SGNC B-C B 
=0 ) ) : FY C J ) =SGNC C~C C=0 ) ) : A=ABSC C/B ) : THC J ) 
=CATNCA-CA=0)*. 1 )+.098)/. 196ELSENEaTJ 
130 RETURN 

140 '•■■•■ t»/-97=9,03'^7. 
150 1FHTHENGOSUB9 10 

160 FORI=0TO4: IFTXC I >=0THENC=2 17 : W=W+20 : 
GOTO180ELSEJ=THC I ):K=TC I >:B=TXC 1 )+XCJ,K) 
*FX( I >-RL*TC I ):C=TYC I >+YCJ,*Q*FY< I>:TCI) 
=K+1 : I FTC I )=4THENTC I 5=0: TXC I >=B:TYC I )=C 
170 H=HORABSCX-BX7 ANDABSC Y-CX8: 1FB<X1Q 
RB>X20RC<Y10ROY2THENTXC I )=0:TYC I )=217 
180 PUTSPRITEI+1 ,CB-8,C-8),8,K+2:NEXTI 

200 I=STRIGC1): IFI ANDZF=0THENFORJ=0TO2 : I 
FZXC J )=0THENZXC J )=X: ZYC J >=Y: ELSENEXTJ 

2 10 ZF=I:FORI=0TO2: IFZYC I )-5>Y 1 ANDZxC I )T 
HENZYC I )=ZYC I X 1 2ELSEZXC I )=0 : ZYC I >=209 
220 FORJ=0TO1 :PUTSPRITE20+J+I*2, CZXC I )+j 
* 16- 16, ZYC I X8),4,6+J:NEXTJ, I 

230 ••••• i>-*/*>3~*. 

240 U=CU=0):K=STICKC 1 ) : I=PXCK) : J=PYCK) : R 

L= I : X=X- 1 * C X > x 1 +SAND I =- 1 ORX< X2 -SAND 1 = 1)* 

S:Y=Y-J*CY>Y1+SANDJ=-10RY<Y2-8ANDJ=1 )*S 

250 PUTSPRITE0, CX-8.Y-8), 14,1: IFUTHENPUT 

SPRITE14, CX-8, Y+7),5,9ELSEPUTSPRITE14, C0 

,209 3 

260 FORI = 1 TOW: NEXT I : W=0 : RETURN 

270 ■ ■ ■ ■■ *S». 

280 FORI=0TO4:HXC I X=HXC I )-PXCK)*SC I -»¥4:H 

YCI)=HYCI)+SCn: J=HYC I )>Y2: IFJORHXCIXXl 

ORHXC I XX2THENHXC I )=RNDC 1 )* 100+78: IFJTHE 

NHYCI)=Y1 

290 PUTSPRITE15+I , CHXC I X8.HYC I j~8 J , 1+4, 

8 : NEXT I 

300 • ■ >■■ END. 

3 10 I FSTR I GC ) THENSCREEN0 : COLOR=C 15,7,7, 
7 ) : PR I NTES"* . IVKLVIt' V9 . " : ENDELSERETURN 
320 >■>■■ f=¥l)"jt<. 

330 FORI=0TO4: IFM=0ANDX1 C I )=0ANDRNDC 1 XA 
2THENBC I ) = C 1+N)¥2+RNDC 1 )*C3+CN=1 ) ) : ONBC I 
>GOSUB360 ,390,370,380,390: GOTO410 
340 NEXT I :GOTO410 
350 '•• 



360 J=38+RNDC 1 )*30:X1C I )=J: Y1C I )=Y1 :FORI 
=I+1T04: IFM=0ANDX1C I )=0THENBC I )=1 :X1C I ) = 
J+30: Y1C I )=Y1 :RETURNELSENEXTI : RETURN 
370 XI C I >=108+RNDC 1 )*40:Y1C I )=Y1 : RETURN 
380 X 1 C I )=X 1 +RNDC 1 )*99 : Y 1 C I )=Y 1 : RETURN 
390 J=CX<128):K=50+CBC I ?=2)*10:X1C I >=-J* 
CX+K)-CJ=0)*CX-K):Y1C I )=Y2:T1C I J=50:KC I ) 
=13: RETURN 

410 FORI=0TO4:X1C I >=X1C I XRL:KC I )=KC I )MO 

DLV+1 :ONBC I )GOSUB450 , 470 , 490 , 5 10 ,530: IFX 

1C I XX10RX1C I )>X2THEMX1C I )=0: Y1C I >=217EL 

SEIFKC I >=1THENXS=X1C I >: YS=Y1C I >: GOSUB 120 

420 GOSUB580: IFKTHENX1C I )=0 : Yl C I )=2 17 : SC 

=SC+1 

430 NEXT I : RETURN 

440 ' ••••• VUV~L.yOD"f. 

450 Y1C I )=Y1C I )+3:GOTO550 

460 '•• 

470 TIC I )=T1C I XCT1C I )>0>*CY>Y1C I>>*6:Y1 

C I )=Y1C I XT1C I )¥4-2: IFY1C I XY1THENX1C I ) = 

: T 1 C I )=0 : RETURNELSERETURN 

480 •• 

490 T 1 C I > = T 1 C I )+SGNC X-X 1 C I > ) : X 1 C I >=X 1 C I ) 

+T1C I )¥4:Y1CI)=Y1C I )+l : GOT0558 

500 '•• 

5 10 TIC I )=T1C I )MOD25+l :X1C I >=X1C I XSGNCX 

-X 1 C I ) )*T 1 C I )¥8 : Y 1 C I )=Y 1 C I XSGN*. Y-Y 1 C I ) ) 

*T1C I )¥8: RETURN 

520 '•• 

530 TIC I X=T1C I )-3:XK I >=X1C I XSGNCX-X1C I 

))*3:Y1C I )=Y1 CD-TIC I)¥4:GOTO550 

540 '• 

550 IFY1C I XY2THENX1C I )=0 : T 1 C I >=0 

560 RETURN 

580 K=0:H=HORABSCX-X1C I > X 1 1 ANDABSC Y-Yl C 
I >X1 1 :FORJ=0TO2:K=KORX1C I >>X1 ANDABSC ZXC 
JXX1C I ))<16ANDABSCZYCJ)-Y1C I )><16:NEXTJ 
.-PUTSPRITE6+I , CX1C I )-8, Y1C I )-8),CCBC I )-l 
) , 9+BC I ) : IFK=0THENRETURN 

590 SOUND6 , 1 40 : SOUND7 , 247 : SOUNDS ,16: SOUN 
D 12 , 20 : SOUND 13,0:1 FSCMOD 1 00=0 ANDZ<7THENZ 
=Z+ 1 : SC=SC+1 : GOSUB950 
600 RETURN 

620 FORI=0TO4:BC I >=N+5:CC 1+5 >=2 : NEXT I : ON 

NGOSUB640 , 680 ,720,770,810: GOSUB 100: RETUR 

N 

630 '••• 1X>. 

640 IFAK3THENA1=3 

650 U=0: V=l : XI C0 5=127 :Y1C0)=Y1 :GOSUB80:F 

ORR= 1 TO40 : Y 1 C0 )=Y 1 C )+SGNC Y~Y 1 C ) )* INTC R 

NDC 1 )*2):T=TMOD6+l : IFT=1 THENGOSUB880 

660 Y=V*-1 :X1C0)=X1C0)+V:GOSUB860:COLOR= 

C2 , 5-R¥7 , 7-R¥7 , 3 ) : NEXTR: RETURN 

670 •*• 2X>. 

680 A1=5:T=0: Y=l : XI C0 )=127 : XI C 1 )=97 : Yl C0 

)=50: Y1C 1 )=50:GOSUB80:FORR=1TO45:T=TMOD3 

2+1 :U=T¥4+CT=32)*8+1 :V=V*-1 : XI C0 )=X1 C0 )+ 

V:X1C 1 )=X1C 1 )+PXCU)*5:YlC 1 )=Y1C 1 )+PYCU) 

690 GOSUB860: IFTMOD8=1THENU=0 : GOSUB880 : I 

FTM0D16=1THENU=1 :GOSUB880 

700 COLOR=C2,7-R¥6,2, 1 ): NEXTR: RETURN 

7 10 *•• 3XV. 

720 FORR=1TO50:FORT=0TO4: IFX1 CT ;=0THENT 1 

CT)=RNDC 1 )*50+58:XlCT)=88-CX<127)*78: Y1C 

T )=Y 1 ELSEU=T 1 C T ) : I FU<6THENX 1 C T )=X 1 C T )+T2 

C T ) : Y 1 C T )=Y 1 C T )+T 1 C T )ELSEY 1 C T )=Y 1 C T )+8 

730 I FY 1 C T > >UANDU>5THENT 1 C T )=SGI iC Y~Y 1 C T > 

)*RNDC 1 )*9:U=SGNCX-X1CT))*4:T2CT)=U+CU=0 

)*4 

740 I FX 1 C T MX 1 ORX 1 C T ) >X20RY 1 C T X Y 1 ORY 1 C T 









154 



a— l- • :/□ ?'=- A • T*f 7 > K 



SHORT PROGRAM 









890 



900 
910 



)>Y2THENXKT)=0:YKT)=2 17 

750 NEXTT : GOSUB860 : COLOR=C2 . 5-R¥9 , 2 , 7-R¥ 

9 ) : NEXTR : RETURN 

760 ••• 4X!>. 

770 A1=8:XK0 5=127 : Yl (0 )=70 : U=0 : R2=2 : GOS 

UB80 : FORR=0TO59 : R 1 =R 1 MOD20+ 1 : R2=R2*- 1 

780 X1(0)=XK0)+SGN(X-X1C0)):Y1C0)=Y1C0) 

+R2 : I FR 1 = 1 THENV=50 : GOSUB890ELSE I FR 1 = 1 0TH 

EMX=X-50 : FORT=0TO2 : GOSUB880 : X=X+50 : NEXTT 

:X=X-100 

790 W= 150 : GOSUB860 : COLOR=C2 , 5-R¥ 10,2, 7-R 

¥10): NEXTR: RETURN 

800 '••• 5X>. 

810 A1=4:B(0)=1 1 : T=0 : R2=0 : R3=l :R4=4:R5=1 

: FOR I =0TO4 : X 1C I )=X 1 : Y K I )=Y 1 : NEXT I : FOR I = 

0TO19:T1C I )=X1 :T2< I )=Y1 : NEXT I :GOSUB80 

820 FORR= 1 TO60 : T=TMOD20+ 1 : R2=R2+R3*R4 : Y 1 

C0 )=Y.Kffl )+R2¥8*R3 : XK0 )=X1 (0 )+R5 : RG=R6MO 

D20+l": IFYK0)>Y2THENYK0)=Y2:R3=-1:R4=R4 

+( R4=4 )*3+ 1 : R2=R4*23ELSE I FRG= 1 THENU=0 : GO 

SUB880 : U=4 : GOSUB880 

830 IFXK0XX1ORX1(0)>X2THENR5=R5*-1 

840 TKT-1 )=XK0):T2<T-1 >=Y1 <0 ) : FORU=lTO 

4:R1=(T+5*U)MOD20:X1<:U)=TUR1):YKU)=T2C 

R 1 ) : NEXTU : GOSUB860 : U=4-R¥ 1 3 : COLOR=C 2 , U , U 

, U+3): NEXTR: RETURN 

850 •■■■■ %'7J ,*)-}- Jl-fi/. 

860 M=MMOD2+l : L=0 : FORI=0TO4: GOSUB580 : L=L 

ORK* ( M= 1) : NEXT I : I FLTHENCOLOR=< 2 ,6,6,6) 

870 R=R+L-1 :SC=SC+L:GOSUB150:GOSUB280:GO 

SUB240 : GOSUB 1220: RETURN 

880 XS=X 1 < U ) : YS=Y 1 < U ) : GOSUB 120: RETURN 

X=X-V¥2:FORT=0TO1 : V=V*-1 :X=X-V: GOSUB 

NEXTT : X=X+Y¥2 : RETURN 

' ■«■■■ $7.. 

GOSUB 1250: FORM= 1 TO40 : I =MMOD9 : X=X+PX< 
I ) : Y=Y+PY< I ) : PUTSPR I TE0 , C X-8 , Y-8 ) , 8 , 1 : W= 
150-<Q=0)*800:ZF=1 : GOSUB 160 : GOSUB280 : IFQ 
THENGOSUB410 
920 IFM=18THENGOSUB1250 
930 NEXTM :SOUND8,0: IFQTHENGOSUB 100 
940 M=0:H=0:Z=Z-1 : IFZ=-1 THEM970 
950 L0CATE14-Z,2:PRINT" "STRINGSCZ, 129 ) : 
RETURN 

960 —— 'JJ'L-f. 

970 GOSUB 1 00 :GOSUB980: PUTSPR I TE0 , (0,208) 
:GOSUB980:PRINTE$",tt9ame over. ":FORI=0TO 
1 : I =-STR I GC 1 ) : NEXT I : HS=SC-<C HS>SC )*< HS-SC 
):GOTO1050 

980 FOR I = 1 TO250 : A=S INC IX: NEXT I : RETURN 
990 ' — — -?*yh&-h?-St"J?< . 

1000 FORI=264T0983: J=VPEEKC I ) : VPOKE I , JOR 
J¥2:NEXTI:FORI=8196TO8202:VPOKEI, 112:VPO 
KE I +6, 48: NEXT I : VPOKEI-7 , 48 : VPOKEI+5 , 144 
10 10 COLOR=< 5 ,7,4,2): COLOR=C 7 ,2,6,7): COL 
OR=C 15,2,4,7) 

1020 '••••• J.-)" z>< h f -9=5, 1}*3L. 
1 030 M= 1 4368 : FOR I = 1 TO20 : READES : FORJ=0TO3 
1 : VPOKEM, VALC'&H"+MID$<;E$, J*2+l , 2 ) ) : M=M+ 
1 : NEXT J, I :E$=CHR$C27)+"Y" 
1040 ' ••••• 9-fhJL 

1050 CLS:PRINTE$"% "STRI NGSC48 , 133 ) 
1060 FOR I = 1 TO 1 4 : FORL=0TO7 : GOSUB 1080 : NEXT 
L: LOCATE I , 6 : PRINTMIDSC " SPACE WAR. 2 ",I 
, l):MEXTI:LOCATE2, 1 1 : PRINT" insert coin ! 
"E$"/8HIGH SCORE.-" 

1070 PRINTES"2S"RIGHTSC"0000"+MIDSCSTRSC 
HS),2),5)"00. ":FORI=0TO1 : I=-STRIGC 1 ) : GOS 
UB 1080: NEXT I :GOT01 100 

1080 FORJ=1064TO1 163 : K=VPEEKC J ) : YPOKEJ , K 
¥2+CKANDl )*128 : NEXT J : RETURN 

1090 ' ><•<> i>3*t"JT-( . 

1 100 I=RNDC-TIME):A1=.5: A2= . 02 : S=2 : Xl=78 



: X2= 1 76 : Y 1 =38 : Y2= 1 63 : SC= 1 : Z=2 : LV=40 

1110 CLS:PRINTE$"tt i 1 I "E$" 

4/ I ' ' " : FOR I =4T0 1 9 : LOCATE 1 5 

, I: PR I NT" I I": NEXT I : LOCATE2 , 1 : PR I NT "SCORE 

00":GOSUB950:RD=0 
1 120 ' ••■■ XY>. 

1 130 FORN=1TO5:SOUND8,0:LV=LY+CLV> 16 )*2: 
A 1 =A 1 -(. A 1<6 )/2 : A2=A2+5E-03 : M=0 : RD=RD+ 1 : X 
=128:Y=155:Q=1 : LOCATE2 , 2 : PRINT"RD, "RIGHT 
SC STRSC RD ) , 2 ) : GOSUB80 

1 140 FORL=1TO500: GOSUB 12 10 : NEXTL: FORM=l T 
0100: GOSUB 1210: NEXTM : AA=A 1 : 0=0 : GOSUB620 
1 150 FORN=1TO50:GOSUB12 10:GOSUB1240:NEXT 
M: GOSUB 100 

1 170 L=0 : SO=0 : GOSUB 1260: FORM= 1 TO300 : GOSU . 

B280:L=LORY<Y1 : W=700-M*4 : SOUNDS , SO: IFM< 1 

40THENSO=M¥ 1 0ELSESO= 1 4 

1 180 IFLTHENY=217:U=1 : G0SUB2 10ELSEY=Y"M¥ 

32:GOSUB200 

1190 NEXTM : A 1 =AA : GOSUB80 : NEXTM : GOTO 1 130 

1200 ' !■■« *)!' . 

12 10 GOSUB 150 : GOSUB280 : GOSUB330 : GOSUB240 

1220 P=PMOD10+1 : IFP=1 THENPRINTES" K"RIGH 

T$( " "+STRSC SC ) , 5 ) : RETURNELSERETURN 

1230 •••• V)-s\~' . 

1240 S0UND7 , 247 : S0UND8 , 10 : S0UMD6 , M*5 : SOU 

ND8, 15-M¥4: RETURN 

1250 S0UMD6 , 2 : S0UND7 , 247 : S0UMD8 ,16: SOUND 

12,3: SOUND 11,50: SOUND 13,10: RETURN 

1260 S0UMD8 , : S0UND7 , 247 : S0UMD6 , 30 : RETUR 

N 

1270 ' %••• 70°?-(h?" -9. 

1280 DATA 00010C020A292A3D393C22341C1422 

0000803040509454BC9C3C442C38284400, 00000 

0000 10700000 10 1060 1000000000000000080608 

0800000E08000000000 

1290 DATA 000000000106070801000000000000 

000000000000000080 10 E0 608000000000, 00000 

000000 40 40 B0C0 40 40 0000000000000000000202 

030 D0 20200000000000 

1300 DATA 000000000000000 10A06060 1000000 

0000000000806060508000000000000000, 00000 

00000000 1030205070E0C0C0808000003 1E70C7B 

C71CFFD860104218200 

1310 DATA 0000C0780EE33D8EF3BF6180208441 

0000000000000080 C0 40 A0E0703 03 01010, 00000 

0000000000 100000000000000000000000000000 
0000000000000000000 

1320 DATA 143A6C301428100000000000000000 
00285C360C2 81 408000000000000000000, 00202 
0392039000F3F3F686B686A687F0000003C80C00 
0F0FCFCFEEEC6EEE6FE 

1330 DATA 01010001092B271D3B7FE3831 10347 
058080008090D4E4B8DCFEC7C188C0E2A0.40B0 4 
8432E0A1C1 1 1 1 1C0A2E4348B040020D12C274503 
88888385074C2120D02 

1340 DATA 0000030F1F1626263FFF007B310000 
000000C0F0F8686464FCFF00DE8C000000,8 1022 
2 120A037C87857D030A 1222028 18 140444850C0B 
EA1E13EC0504844408 1 

1350 DATA 070843E0D1F0FC4A4AFCF0D1E04308 
07E010C2078B0F3F52523F0F8B07C2 10E0,07 1C3 
36C5FD7B2B2ACAFDC586F331C07E038CCF6 1A3BF 
5354D4DEBFA36CC38E0 

1360 DATA 80200788160B8C1F90B7A950380700 
500A00E0 1C0A95ED09F83 1D068 1 1E0040 1 ,07 1A0 
5484A9213A9A9 13924A4905 1A07E058A0925249C 
89535C8495292A058E0 

1370 DATA 804E3C3F6F6EDCDCDCDC6E6F3F3C4E 
800 1723CFCF6763B3B3B3B76F6FC3C720 1 ,000F3 
F236363C5E5F1DF4F6330380F0000F0FCC4C6C6A 
3A78FFBF2C60C1CF000 
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1000 CALL MUSIC (1.0.1.1.1.1.1,1) 

1010 CALL VOICE (90,«6.<(6.»6.«6.t»33) 

1020 PLAY #2. "T120O6V15"."T120OGV12"."T1 

20O5V10" , "T120O5V10" . "T120O5V10" . "T120O3 

V15"."T120V15" 

1030 ' 

1040 C$="R6CCR12CR6CR6C" 

1050 D$ = "R6DDR12T;R6DR6D" 

1060 E$="R6EER12ER6ER6E" 

1070 F$="R6FFR12FR6FR6F" 

1080 G$="R6GGR12GR6GR6G" 

1090 LB$="R6<BBR12BR6BR6B>" 

1100 LA$="R6<AAR12AR6AR6A>" 

1110 ' 

1120 R$="B!6S12S6S12B!S6S12B!S6S12" 

1130 " 

1140 ' INTRODUCTION 

1150 ' 

1160 PLAY #2."«V100L12GR6GR6GR6R4", "L12E 

R6ER6ER12G24G24ER12G" . "L12GR6GR6GR6R4" . " 

L12ER6ER6ER6R4" . "L12CR6CR6CR6R4" . "G12R6G 

12R6G12R6R4" . " B ! S ! H ! 4B ! S ! H ! 4B ! S ! H ! 6S24S2 

4S6S12" 

1170 PLAY <t2."AR12AR6GAR6R4", "FR12FR6EFR 

6R4" . " FR12FR6GFR6R4" . " CR12CR6DCR6R4" . " <A 

R12AR6BA>R6R4" . " A12R12A12R6G12A12R6R4" , " 

B ! S ! H ! 6B ! S ! H ! 4B ! S ! H ! 12B ! S ! H ! 6S24S24S6S 1 2 

1180 PLAY #2.">CR6CR6CR6R4<". "ER6ER6ER12 

>C24C24<A>R12C<" , " GR6GR6GR6R4" . "ER6ER6ER 

6R4" . " CR6CR6CR6R4" . "C12R6C12R6C12R6R4" . " 

B!S!H!4B!S!H!4B!S!H! 6S24S24S6S12" 

1190 PLAY #2. ">DR12DR6CDR6R4<"."BR12BR6A 

BR6>E6D<" . "GR12GR6EGR6R4" . "DR12DR6CDR6R4 

S0" , " <BR12BR6AB>R6R4«0" . " D12R12D12R6C12D 

12R6R4" . " B ! S ! H ! 6B ! S ! H ! 4B ! S ! H ! 12B ! S ! H ! 6S2 

4S24S6S12" 

1200 PLAY #2. ">C2<R6EGR12A". ""."XG$;" ."X 

E$ ; " . " XC$ ; " . " CR4CC" . " XR$ ; " 

1210 PLAY #2,"G2.>C6D<",""."XG$;"."XD$:" 

. " XLB$ ; " . " GR4GG" . " XR$ ; " 

1220 PLAY #2. " >ER6ER6DR12C<A4" . " " . " GR6GR 

6GR6R4" . " ER6ER6DR6R4" , " CR6CR6<B>R6R4" . "E 

12R6E12R6D12R0R4" ."B!S!H!4B!S!H!4B!S!H!6 

S24S24S6S12" 

1230 PLAY #2.">CK","R6CCCCCR12CCR12C"." 

R0GGGGGR12GGR12G" . " R6EEEEER12EER12E" . "R6 

CCCCCR12CCR12C" . "C12R12C12C12C12C12C12R1 

2C12C12R12C12" . "R6S12S12S12S12S6S12S6S12 

1240 ' 

1250 '1st CHORUS 

1260 ' 

1270 PLAY #2."tl6«V127ER6ER6E4&ER12D"."" 

. " «V100i0XG$ ; " . " tV100XE$ ; " , " iV100XC$ ; " . " 

CR4CC"."«V100XR$;" 

1280 PLAY #2."E6DR6C&C2". " " . " XG$ ; " . "XE$ ; 

" . " XC$ ; " , " CR4CC" . " XR$ ; " 

1290 PLAY #2."DRbDR6D4&DR12C". " " . "XG$;" , 

" XD$ ; " . " XLB$ ; " . " GR4GG" . " XRS : " 

1300 PLAY #2. " E6DR6C&C2" . "" . "XG$; " . "XE$ ; 

" . " XC$ ; " , " CR4CC" . " XR$ ; " 

1310 PLAY #2. "ER6ER6E4&ER12D". "". "XCS;". 

" XE$ ; " . " XC$ ; " . " CR4CC" . " XR$ ; " 

1320 PLAY #2."E6DR6C&C2".""."XGS;"."XE$; 

"."XC$;"."CR4CC",''XR$;" 

1330 PLAY #2. "DR6DR6DR12CER12D","". "GR6G 

R6GR6R4" . " DR6DR6DR6R4" . " <BR6BR6BR6R4>" . " 

D12R6D12R6D12R6R4" . " B ! S ! H ! 4B ! S ! H !4B ! S ! H ! 

6S24S24S6S12" 

1340 PLAY #2."C2.DR12E". " " . "R6GGGGGR12GG 

R12G" . "R6EEEEER12EER12E" . "R6CCCCCR12CCR1 

2C" . "C12R12C12C12C12C12C12R12C12C12R12C1 

2" . "R6S12S12S12S12S6S12S6S12" 

1350 PLAY #2. " F4&FR12ED4&DR12E" . "" . " XF$ ; 

" . " XC$ ; " . " XLA$ ; " , " FR4FF" . " XRS : " 

1360 PLAY #2. " FR12EDR12CD4<AR12B>" . " " . " X 

F$ ; " . " XC$ ; " . " XLA$ ; " . " FR4FF" . " XR$ ; " 

1370 PLAY #2."CR6ER6DR12C<B>R12C",""."R6 

EER12ER6FR6F" . " R6CCR12CR6DR6" . " XLA$ : " , " E 



R4DD" , " XR$ ; " 

1380 PLAY #2,"<A2.>DR12E".""."XE$;"."XC$ 

; " . " XLA$ ; - . " AR4AA" . " XRS ; " 

1390 PLAY #2."F4&FR12ED4&DR12E".""."XF$; 

"." XCS ;"," XLAS ."."FR4FF"." XRS;" 

1400 PLAY #2."FR12EDR12CD4<AR12B>"."". "X 

F$ ; " . " XC$ ; " . " XLA$ ; " , " FR4FF" . " XR$ ; " 

1410 PLAY #2. "CR6ER6DR12C<AR12B>".""."FR 

6GR6GR6R4" . " CR6ER6DR6R4" . " <A>R6CR6<BR6R4 

>" . "C12R6E12R6D12R6R4" . " B ! S ! H !4B ! S ! H !4B ! 

S!H!6S24S24S6S12" 

1420 PLAY #2."C1"."«0R6CCCCCR6«6>E6D<"," 

R6GGGGGR6R4" , " R6EEEEER6R4" . " R6CCCCCR6R4" 

. "C12R12C12C12C12C12C12R6R4" , "R6S12S12S1 

2S12S6S12S6S12" 

1430 ' 

1440 ' INTERMEZZO 

1450 ' 

1460 PLAY #2,"iV100«6>C2<R6EGR12A"."«V10 

0G2R6CER12F" . " XGS ; " . " XES ; " , " XCS ; " , " CR4CC 

" . " XR$ ; " 

1470 PLAY #2."G2.>C6D<"."E2.C6B"."XG$;". 

" XD$ ; " , " XLB$ ; " . " GR4GG" , " XR$ ; " 

1480 PLAY #2.">ER6ER6DR12C<A4",">CR6CR6< 

BR12GE4" . "GR6GR6GR6R4" , " ER6ER6DR6R4" . "CR 

6CR6<B>R6R4" . " E12R6E12R6D12R6R4" . " B ! S ! H ! 

4B ! S ! H ! 4B ! S ! H ! 6S24S24S6S 12" 

1490 PLAY #2.">CK"."G1"."R6GGGGGR12GGR1 

2G". "R6EEEEER12EER12E". "R6CCCCCR12CCR12C 

" . "C12R12C12C12C12C12C12R12C12C12R12C12" 

. "R6S12S12S12S12S6S12S6S12" 

1500 ' 

1510 '2nd CHORUS 

1520 ' 

1530 PLAY #2."«16tV127ER6ER6E4«tER12D"."i 

16tV127CR6CR6C4&CR12<B>" . " «0XG$ ; " . " XES ; " 

. " XC$ ; " . " CR4CC" . " «V100XR$ ; " 

1540 PLAY #2."E6DR6C&C2"."C6<BR6C&G2>"." 

XG$ ; " . " XES ; " , " XC$ ; " . " CR4CC" . " XR$ ; " 

1550 PLAY #2."DR6DR6D4&DR12C","<BR6BRbB4 

&BR12G>" . " XG$ : " . " XDS : " . " XLB$ : " . " GR4GG" , " 

XRS;" 

1560 PLAY #2."E6DR6C&C2"."C6<BR6G2>","XG 

$ ; " . " XES ; " . " XCS ; " , " CR4CC" . " XR$ ; " 

1570 PLAY #2."ER6ER6E4&ER12D"."CR6CRbC4& 

CR12<B>" . " XGS ; " . " XES ; " . " XCS ; " . " CR4CC" . " X 

RS:" 

1580 PLAY #2."E6DRbC&C2"."C6<BR6G&G2>"." 

XGS ; " . " XES ; " . " XCS ; " . " CR4CC . " XRS ; " 

1590 PLAY #2."DR6DR6DR12CER12D"."<BR6BR6 

b^koR4" . " CRbCRbGKbR4" . " DKbDRoURoR4" . " <BR 

bBR6BR6R4>" . "D12RbD12R6D12R6R4" . "B!S!H!4 

B!SIH!4B!S!H! 6S24S24SbS12" 

1600 PLAY #2, " C2. DR12E" . " E2. R4" . " R6GGGGG 

R12GGR12G" . " R6EEEEER12EER12E" . "R6CCCCCR1 

2CCR12C" . "C12R12C12C12C12C12C12R12C12C12 

R12C12" . "R6S12S12S12S12S6S12S6S12" 

1610 PLAY #2, "F4&FR12ED4&DR12E"."R4DR12E 

FR12C<BR12>C . " XFS ; " , " XCS ; " , " XLAS ; " . " FR4 

FF"."XR$;" 

1620 PLAY #2."FR12EDR12CD4<AR12B>". "DR12 

C<BR12AB4>R4" . "XFS;". "XCS:". "XLAS;". "FR4 

FF'VXRS;" 

1630 PLAY #2."CR6ER6DR12C<B>R12C","R6CCR 

12C<BR12AC#R12A>" . "RbEEK12ERbFRbF" . " kbCU 

R12CR6DR6" . " XLAS ; " . " ER4DD" . " XRS ; " 

lb40 PLAY #2, "<A2.;-DR12E", "C2.R4". "XES;" 

. " XCS ; " . " XLAS ; " . " AR4AA" . " XRS ; " 

lbb0 PLAY #2. 'F4&FR12ED4&DR12b". "K4DR1^E 

FR12C<BR12>C" . " XFS ; " . " XCS ; " . " XLAS ; " . " FR4 

W . "XRS;" 

lbb0 PLAY #2. "FR12EDR12CD4<AR12B>"."DR12 

C<BR12AB4>R4" . " XFS : " . " XCS ; " . " XLAS ; " . " FR4 

FF" . " XRS ; " 

lb70 PLAY #2. "CR6ER6DR12C<AR12B>"."<GRbA 

R6B>R6R4" . " FR6GR6GR6R4" . "CR6ER6DR6R4" . "<. 

A>R6CR6<BR6R4>" . "C12R6E12R6D12R6R4" . "BIS 

! H ! 4B ! S ! H ! 4B ! S ! H ! bS24S24S6S12" 

1680 PLAY #2."C1".' , R6CCCCCR6R4"."R6GGGGG 

R6R4" . " R6EEEEER6R4" . "R6CCCCCR6R4" . "C12R1 

2C12C12C12C12C12R6R4" . "R6S12S12S12S12S6S 

12S6S12" 

1690 ' 

1700 'ENDING 



1710 ' 

1720 PLAY #2. "f6SV100L12GR6GR6GR6R4". "«6 

ER6ER6ER12G24G24ER12G" . " L12GRbGRbGR6R4" . 

"L12ER6ER6ER6R4" . "L12CR6CR6CR6R4" . "G12R6 

G 1 2RbG 12R6R4" ,"B!S!H!4B!S!H!4B!S!H! bS24S 

24S6S12" 

1730 PLAY #2."AR12ARbGARbR4"."FR12FR6EFR 

bR4". "FR12FR6GFR6R4". "CR12CR6DCRbR4" . "<A 

RUARbBA^RbR4" . " A12R12A12RbG12A12R6R4" . " 

B ! S ! H ! bB ! S"! H ! 4B ! S ! H ! 1 2B ! S ! H ! 6b^4S24SbS12 

174D PLAY #2. ">CR6CR6CRbR4<". "ER6ERbER12 
^CZ4C24^A^R12C<" . " GR6GR6GR6R4" . " ERbERbER 
bR4" . "CR6CR6CR6R4" . "C12R6C12R6C12R6R4" . " 
B ! S ! H ! 4B ! S ! H ! 4B ! S ! H ! 6S24S24S6S12" 
1750 PLAY #2.">DR12DR6CDR6R4<"."BR12BR6A 
BR6>E6D<" . "GR12GR6EGR6R4" . " DR12DRbCDR6R4 
•0" , " <BR12BR6AB>R6R4«0" . " D12R12D12R6C12D 
1 2R6R4" . " B ! S ! H ! 6B ! S ! H ! 4B ! S ! H ! 12B ! S ! H ! bS2 
4S24S6S12" 

1760 PLAY #2. ">C2<R6EGR12A". " ". "XGS: ". "X 
E$ ; " , " XCS ; " . " CR4CC" . " XRS ; " 
1770 PLAY #2. "G2.>C6D<".""."XG$:". "XDS:" 
. " XLBS : " . " GR4GG" , " XRS ; " 

1780 PLAY #2.">ER6ER6DR12C<A4". "". "GR6GR 
bGRbR4" . " ERbERbDRbR4" . " CRbCRb-'.B / >RbR4" . " E 
1 2R6E12RbD 1 2RbR4" ."B!S!H!4B!S!H!4B!S!H!b 
S24S24S6S12" 

1790 PLAY #2. ">C4R4<A4. A4. " , ""."G4R4F4.F 
4. " . " E4R4L4. C4. " . " C4R4<vA4. A4. >" . " C4K4^A4 
.A4->"."B!S!C!2B!S!C!4.B!S!C!4. " 
1S00 PLAY #2. ">Cl&L3&C12el4»V127Cl<," . "61 
4>C6<CbE6G6A6>C6C6D6. «V100E1<" . "G1&G1&G1 
. "E1&E1&E1" . "C1&C1&C1" . "C1&C1&C1" . "C!1R 
1R1" 
1810 END 



10 CLEAR5000:_MUSIC(1.0. 1.1.1.1.1.1) :DEF 
STRA-Y:T-"tl5018" :PLAY#2. T. T. T. T, T. T, "11 
50" . T 

11 S0UND6.6:S0UND7.49 

12 -TRANSPOSE (0) 
20 ' A PART 

30 A0="eee2&e dedc2&c4 

40 Al="ddd2&d cedc2&c4 

50 A2="dddcer8dr8c2&c2 

60 A3="dddcer8dr8c2&c4il6de 

70 A4="f4&fed4&defedcdr8<ab> 

80 A5="cr8er8dc<b>c<a2&a4>de 

90 A6="cr8er8dc<ab>cl 

500 ' B PART 

510 B0="ccc2&ccc<af2&f4 

520 Bl-"ggg2&gggfe2&e4> 

530 B2="gggfgr8fr8e2&e2> 

540 B3="gggfgr8fr8e2&e4«16> 

550 B4-"d2<a2>dc<bagr8f4 

560 B5="er8gr8f4e4d2&d4b>c 

570 B6="er8cr8gfede2g2> 

1000 ' C PART 

1010 C0=" c>c<c>c<c>c<c>c«f >f <f >f <f >f <f > 

f 

1020 Cl="<g>g<g>g<g>g<g>g c>c<c>c<c>c<c< 

b> 

1030 C2="<a>a<a>a<a>a<a>a <f>f <f >f<f >f<f 

>f< 

1040 C3="g>g<g>g<g>g<g>g c>c<c>c«ggab> 

1050 C4="g>g<g>g<g>g<g>g c>c«g>gcr8fg< 

1060 C5="f>f<f>f<f>f<f>f< d>d<d>d<d>e-<e 

>e< 

1070 C6="g>g<g>g<g>g<g>g< d>d<d>d<d>dfg< 

1080 C7=">c>c<c>c«g>g<a>b< c>c<c>g<ggab 

> 

1490 CZ="<g>g<g>g" :CZ=CZ+CZtCZ+"<ggab> 

1500 ' D PART 

1510 D0="t0q2cg>c<gcg>c<g< f>cfc<f>cfc 

1520 Dl="<g>dgd<g>dgd cg>c<gcg>c<b 

1530 D2-"<a>eae<a>eae <f>cfc<f>cfc 

1540 D3-"<g>dgd<g>dgd cg>c<g gfed 

1550 D4="<g>dgd<g>dgd cg>c<gcr8814q8 

2000 ' E PART 

2010 E0="r4r4eeed c<ba2&a4 

2020 El-"r4r4>ddd<b>cde4&e2 

2030 E2=">ggffeeddc2&c4de 

3000 ' H PART 

3010 H="b!h8h8m!b!h8b!h8" :H0=H+H+H+H 

3020 HI =H+H+H+" b ! m ! c8b ! h8b ! h8m ! b ! h8 

3030 H2=H+H+H+" b I h8h8b ! m ! h8b ! m ! h8 

3040 H3=H+HtH+" b ! h8b ! m ! h8b ! m ! h8b ! m ! h8 

5000 " P PART (PSG=Noise) 

5010 P="r4c4" :P0=P+P+P+P 

5020 Pl=P+P+P+"c4r8c8 

5030 P2=P+P+P+"r4cc 



156 J'Ji-f^'aVr^h 
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5040 P3=P+P+P+"r8ccc 

9999 'GOTO 10095 

10000 ' PLAY 

10010 PLAY#2. " »16o6vl5" , " «16o6vl3" . " f 33o 
3vl4q4" , "«23o4v9q3" , "«0o5v9q2" . "«14o5vl0 
" , "«al5vl", "s0m2200 

10015 PLAY#2. LL, LL. C0, C0. LL. LL, H0. P0 

10016 PLAY#2, LL. LL. CZ, CZ. LL, LL, H0, P0 
10020 PLAY#2, A0. B0. C0, C0. D0. LL. H0. P0 
10030 PLAY#2. Al . Bl . CI . CI . Dl . LL. H0. P0 
10040 PLAY#2. A0, B0. C2. C2. D2. LL. H0. P0 
10050 PLAY#2, A2. B2. C3. C3. D3. LL. HI , PI 
10060 PLAY#2. A0. B0. C0. C0. D0. E0. H0. P0 
10070 PLAY#2. Al . Bl , CI . CI , Dl . El . H0, P0 
10080 PLAY#2. A0. B0, C2. C2. D2. E0. H0. P0 
10090 PLAY#2. A3. B3, C4. C4. D4. E2. HI . PI 
10095 ' 

10100 PLAY#2, A4. B4. C5, C5, B4. A4. H0. P0 
10110 PLAY#2, A5. B5. C6. C6. B5. A5. H2. P2 
10120 PLAY#2, A4. B4. C5. C5. B4. A4. H0. P0 
10130 PLAY#2. A6. B6. C7. C7. B6. A6. H3. P3 
10140 GOTO 10020 



***** SYNTH SAURUS Ver2.00 ***** 
Converted by BIT2 



1 

2 

3 

4 ' 

10 CALL MUS1C(0.0. 1. 1. 1. 1. 1. 1. 1. 1. 1) 

20 PLAY #2."T100V12il2","T100V13«10"."Tl 

00V11S9" . "T100V12«10" . 'T100V1H48" , "T100 

V12H3" . "T100V12«0" . "T100V12«0" . "T100V12* 

0" 

30 PLAY #2,"V12«12T100O3LlA"."V12tl0O6L4 

AL8GEGEDC" . " V13«906L16EDL4E. ED" . " «10V12R 

205L8BAGA" . " V0R1" . " «3V1204L2A. R4" . "V15«l 

804L4ER2. " . "«24R20bL32EVllEDC05BAGFEDC04 

BAGF'E" . " " 

40 PLAY #2. "A" . "L4D.L8EL2E"."05G.L8AL2A" 

, "KiiBAGA" , "Rl" . "GE" . "LIE" . " 06L8C05AGA06L 

2C" . " " 

50 PLAY #2. " E" . " 05L4EEGA" , " L4EL8EGL4GA" . 

"RZBAGA - "."R1". "EG". " L4ER2. " . "ED" . "" 

O0 PLAY #2. " A" . " AL8ABL4BR4" . " L2AG" , " R2BA 

GA"."R1"."L1A". "R2EE"."L1E". "" 

70 PLAY #2. "A" ,"AL8EGA06CDC"."06L16EDL4E 

. ED" . " Rl" . " Rl" , " L2A. R4" . " ER2. " . " R2L32EED 

C05BAGFEDC04BAGFE" . " " 

80 PLAY #2. " L2AG" . "05L2AG" . " 05L8GGGAL2A" 

. "Rl" . "Rl" . "GE" . "L2EE" , "06L8C05AGA06L2C" 

90 PLAY #2. " EE" . " L8GGGGAAGG" , " L4GL8GGL4E 

E"."R1"."R1"."EG"."L8EEEEL4EE" , "ED". "" 

100 PLAY #2,"L1A"."L1A"."L1A"."R1"."R1". 

"L1E"."L2EE","L1E"."" 

110 PLAY #2. "02A"."V1306L16AGEGAGEGAGEGA 

GEO" , "V110oL4C05AGA" , "04A05E06C05A06E05A 

Ot>C05A" . "Vllt4805L2EC" . "06L2AL4GA" , " ER2" 

, "LzEL4EG" , " " 

120 PLAY #2, "A". "AGEGAGEGAGEGAGEG", "GEDC 

" . " 04A05E0oC05A06E05A06C05A" . "E. L4G" . "07 

COoAGE" . " ER2" . " AGEC" . " " 

130 PLAY #2, "A" . "AGEGAGEGAGEGAGEG", "06C0 

5AGA" , " 04A05E06C05A06E05A06C05A" . " L2EC" . 

" L2AL4GA" , " ER2" . " L2EL4EG" . " " 

140 PLAY #2. "A"." AGEGAGEGAGEGAGEG". "GEDC 

" . " 04A05E06C05A06E05A06C05A" . " E. L4G" . " 07 

C06AGE" . " ER2" . " AGEC" , " " 

150 PLAY #2. "V14A"."V1205L4AAGL8ED" . "V13 

07CC06AL8GE" . "V1306L4CC05AL8GE" . "V1206EE 

DL8C05A" , "V13AAGL8ED" . " «2606EE" , "V12EEDL 

8C05A" , " " 

160 PLAY #2,"L2AV13L16AR16AR16AR16AR16". 

"07L4CCL2C" , "GA07L4CL2C" . "EAL4AAB" . "A06C 

L4CL2C" , "CEL4EL2E" , "EE" , " G06CL4CL2C" . " " 

170 PLAY #2."V1203L4AR8L8EL16AR16L4CL8E" 

. "V10O6L8AAL2AL8AG" , " V1380O6L8EEL2EL8BD" 

, " VT204L8A05A06C05A06E05A06C05A" . "V11R80 

5L8ER8ER8L4E. " , " V12R8L8CR8CR8L4C. " , " «18V 

1304ER2" . " VI 1L8CCL2CL8C05A" , " " 

180 PLAY #2."L4AR8L8EL4AC"."AGL2E. ", "EDL 

ZC. " . "04A05A06C05A06E05A06C05A" . "R8L8ER8 

ER8L4E. " . "R8L8CR8CR8L4C. " . "ER2" . "06C05AL 

2A. "."" 

190 PLAY #2."ER802L8B03L16ER1602L4G+L8G+ 

" , " L8EEL2EL8ED" . " L8DDL2DL8DC" . " 04E05D06E 

05G+06D05G+BG+V14" . "R8L8ER8ER8L4E. " . "R80 

5L8G+R8G+R8L4G+. " , " ER2" . " EE" , " " 

200 PLAY #2. " 03L4AR8L8EL4CD" . " GEL2E. " . " E 

DL2C. " . "L4AL8EGA06CDCV12" . " R406L8ED05L2E 

" . " R406L8GE05L2G" . " ER2" . " L8CC04L2A. 

210 PLAY #2."AR8L8EL16AR16L4CL8E"."L8AAL 

2AL8AG" . " L8EEL2EL8ED" . "04A05A06C05A06E05 



A06C05A" . "R8L8ER8ER8L4E. " . " R806L8CR8CR8L 

4C. " , " ER2" . " 06L8CCL2C05L8A" , " " 

220 PLAY #2."L4AR8L8EL4CE". "AGL2E. ", "EDL 

2C. " , " 04A05A06C05A06E05A06C05A" , "R8L8ER8 

ER8L4E. " . " R8L8CR8CR8L4C. " . " ER2" . " 0bC05AL 

2A. ","" 

230 PLAY #2."GR8L8DGR802BR8"."L8GGGEGR8E 

K8" . " L8DDDCER8DR8" . "04A05CEA0bC05AEC" , " R 

8L8DR8DR8L4DL8D" . " R805L8BR8BR8L4BL8B" , " E 

K2" . "UbL4CEL8DCU5AB" . " " 

240 PLAY #2. "03L4AR8L8EL16AR16L8CDE"."L2 

E. L8KG" , " L2C. L8DE" . " 04A05CAEL4AB" . " R8ER8 

EL4EF" . " R806CR8CL4CD" . " L8E. L16EL8EEE. L16 

EL8EE" . " L4AA06CC" . " " 

250 PLAY #2."L4D.L8D02L4AA"."L4D.L8C05L4 

A. 0bL8C" . "L4F. L8EL4D. L8E" . "R8L16AAL8AAL1 

6AR16AR8. L8A" . "tl0R8L16FFL8FFL16FR16FR8. 

L8F" . " FFL8EFDC" , " EL16EEL8EEL4EE" . " «16L8C 

C05L4AGA" , " " 

260 PLAY #2, "03D.L8D02AL4AL8A"."DC05AGAR 

8FG" . " FEDCDR805AB" . "R8L16AAL8AAL16AR16AR 

8. L8A" . "R8L16FFL8FFL16FR16FR8. L8F" . "L4DD 

L8CDC05A" . " ER4EE" . " 06L8CC05L4AGA" . " " 

270 PLAY #2."L4A.L8A03EL4E."."06ER8GR8FE 

CE" . "06CR8ER8DC05A06C" , "R8L16AAL8AAL16G+ 

R16G+R8. L8G+" . " 04A05CEAG+ED04B" . "06L4CCD 

L8CD" , " L2EE" . " E. L8GL2A" . " " 

280 PLAY #2. " 02A. L8AAAB03C" , " L2C. L8FG" . " 

05L2A. 06L8DE" . "R8L16AAL8AAL16AR16AR8. L8A 

" . " R805L16EEL8EEL16ER16ER8. L8E" . " L4EEL2E 

" . " L4EV15EEEV14" . " L8AGEGL2A" , " " 

290 PLAY #2. " L4D. L8D02L4AA" . " L4D. L8C05L4 

A. 06L8C" , "L4F. L8EL4D. L8E" , "R8L16AAL8AAL1 

6AR16AR8. L8A" , " •10R8O6L16DDL8DDL16DR16DR 

8. L8D" , "L4FFL8EFDC" . "L8EL16EEL8EEL4EE" . " 

06L8CC05L4AGA" . " " 

300 PLAY #2."03D.L8D02AL4AL8A"."DC05AGAR- 

8FG" . " FEDCDR805AB" , "R8L16AAL8AAL16AR16AR 

8. L8A" . "R8L16DDL8DDL16DR16DR8. L8D" , "L4DD 

L8CDC05A" , " ER4EE" , " b6L8CC05L4AGA" , " " 

310 PLAY #2. "L4A. L8A03L4F. L8F" , "06ER8GR8 

FECD" . " 06CR8ER8DC05AB" . "R8L16AAL8AAL16AR 

16AR16L4A" . " 04A05CEA06C05AFC" , "06L4CCDL8 

CD" . " L2EE" . " E. L8GL2A" . " " 

320 PLAY #2."L4A.L8AL2A". " L4EA07L2C" . " 06 

L1C" . "AEL2C" , "06L4EC05L2A" . " L4C05AL2E" . " 

L4EEER4" . " L8AGEGL2A" , " " 

330 PLAY #2."L1A","06L16C05AGA06C05AGA06 

C05AGA06C05AGA" , "Rl" . "06L8CCCCCCCC" . "06E 

L8EDCD" , " L32EGA06CDEGAL8EGL2A" , "E. L8EL2E 

"."V13L4G.L8AL2G"."" 

340 PLAY #2, "A". "06C05AGA06C05AGA06C05AG 

A06C05AGA" . "Rl" . " V13R4ED05L2E" , "L4EEL8ED 

CD" . " L8AGEGL2A" . " L4E. L8EL2E" , " 06L8C05AGA 

L2G" , " " 

350 PLAY #2. "A". " AGGGAGGGAGGGAGGG" . "Rl" . 

"V1106L8CCCCCCCC" . " L2EL8EDCD" , "L16AGEGL8 

EGL2A" , " L4E. L8EL2E" , " L4G. L8AL2G" . " " 

360 PLAY #2. " A", " AGGGAGGGAGGGAGGG". "Rl". 

"V13R4C05AL2C" . " L4EEL8EDCD" . "L8AGEGL2A" , 

" L4E. L8EV15L4EEV14" . " 06L8C05AGAL2G" . " " 

370 PLAY #2."02A"."L4AAGL8ED"."07L4CC06A 

L8GE" , "V1206L4CC05AL8GE" , " L4EEDL8C05A" . " 

L4AAGL8ED" . "L2EL8E. L16EL8EE" . "06L4CC05AL 

8GE" . " " 

380 PLAY #2 . " A" . " L4AAL2A" , " GAL4AL2A" . " EA 

L4AL32CDEGA06CDEL4A" , " A06CL4CL8CR8CR8" . " 

CEL4EL8AR8AR8" . "L2EV15L8EEEEV14" . "GAL4AL 

2A"."" 

390 PLAY 82. "L4A.L8A03L4F.L8F". "06L8ER8G 

R8GECD" , " L8CR8ER8DC05AB" . "R805L16AAL8AAL 

16AR16AR16L4A" , " 04A05CEA06C05AEC" . "L4CCD 

L8CD" . "L2ER2" . " 06L4CEL8DC05AB" . " " 

400 PLAY #2."L2AA"."L1G"."06L1C"."04L32E 

EGGAA05CCDDEEGGAA06L8C05AR4" . " L32CCDDEEG 

GAA06CCDDEEL8ECR4" . " 05L32EEGGAA06CCDDEEG 

GAAL8AER4" . " L4EEER4" . " 06L4C . L8EL2C" . " " 

410 PLAY #2 . ""."".""."".""."".""." " 
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60 _MUS1C(1.0. 1. 1.1. 1.1. 1) :_PITCH(442) :T 

$-" t92vl2" :PLAY#2. T$. T$. T$. T$, T$, T$. T$ + " 

y54,0y55.32y56.0".T$ 

70 S0UND7.49:S0UND6,6 

80 A=l 

90 - 

100 ' Introduction 



110 Bl$="il6rr8124o6ga>cdg«tg4r24r8rr8<ga 

>cdg&g4r24r8rr8<ga>cdg&g4r24r8rr8<ga>cdg 

&g4 

120 B2$=" <1 16gb>df a8<a>df a>d8«b>df gb8<f 

a>cf a<gb>dgb<a>cea>cl 

130 Cl$="82o511efef 

140 C2$="<b4.a4.g4. f88tf2.&fl 

150 Dl$="«2o511cccc 

160 D2$="<g4. f4.d4.c8&c2.8tcl 

170 El$="«2o511ga4U6&a85a>cfg8f<a&a4S21 

lga 

180 E2$="d4.d4.<b4.a8&a2.&al 

190 Fl$-"S33o311c&cc&c 

200 F2$=" <e4. f 4. g4. g8&g2. &gl 

210 Rl$-"bh4bh4bli4bh4bh4bh4bh8. sl6bsm8m8 

bhc4bh4bh4bh4bh4bh4bh8. sl6bs8sm8 

220 R2$-"bc4bs8bc8s8sm8bc8bsl6sml6ml6bl6 

bs8bh4bh4bh4bc4b4b8. sl6bsm8bm8 

230 PLAY#2. Al$. Bl$, Cl$. Dl$, El$, Fl$. Rl$ 

240 PLAY#2, A2$, B2$. C2$. D2$, E2$. F2$. R2$ 

250 ' A part 

260 Al$="i6vl3o5f32g8. . &g2&g8al6bl618>c4 

de4c<b>cd32e8. . &e2&e8dl6cl6e4. d4. de 

270 A2$="c4. <b2>cl6dl6dedc4<b>cdc2. &c8dl 

6cl6<b2. 

280 Bl$=" 18o5r8g>ce&e2<r8g>cd&d2<r8g>ce& 

e2 1 32<ceg>ce8&e4«b>dgb>d8&d4 

290 B2$="<a>cea&a4<gb>dg&g2<fa>cf&f4. e4c 

4<ceg>c&c218<g>ce<132gb>dg&g4.&g4 

300 Cl$="o6cdcc2<b2 

310 C2$-"a4.b8&b2a2g2gg2. 

320 Dl$="o5gggg2g2 

330 D2$-"e4.g8&g2r2e2ed 

340 El$-"o5eee4. «5>dl6el618fedcc4. <b&b2« 

2 

350 E2$="c4.c8&c2c2c211c<b 

360 Fl$-"o3c&c2. &c8<g8b2a2>c4. <g8&g2 

370 F2$="a2g2f2e2g&g2.>g4 

380 R 1 $ = " b4h4h4h4bh4h4h4h8b8bh4h4h4h4bh4 

h8b8h4h4 

390 R2$ = " bh4h4h4h4bh4h4h4h4bh4h4h4h4bh4h 

4h4bsc4 

400 P2$="s0ml650rlrlrlr2rlc 

410 PLAY#2.A1$,B1$.C1$.D1$.E1$.F1$, Rl$ 

420 PLAY#2. A2$. B2$, C2$. D2$. E2$. F2$. R2$. P 

2$ 

430 ' 

440 ' B part 

450 Al$="o6d32e8. . &e2&e8<l 16ab>c418de4c< 

b>ce32f 8. . &f 4&f ctdef 2&f c 1 12&c<b>c 

460 A2$=" ledl8«tdc<b>cled. c<b8>cl&c2. 

470 Bl$-"o618e<g>c<g>ecg<g>d<g>c<g>d<g>g 

<g>f<a>c<a>f<a>a<a>f<a->c<a->f<a->a-<a- 

480 B2$=" >g<g>c<g>e<g>g<g>g<gbg>d<g>g<g> 

f<faf>c<f>f<f>c<g>g<gl32eg>ce&e8&e4 

490 Cl$=" Uo6cdcc 

500 C2$="c<b>cc 

510 Dl$="llo5ggaa- 

520 D2$="ggag 

530 El$=" llo5eeff 

540 E2$="edf4.*5dl6el618fgafc2.«2 

550 Fl$="o31c. c8c2c. c8c2<f . f8f2f . >c8f2 

560 F2$="g. g8g2<g. g8g2f . f8f2>c. c8c2 

570 Rl$=" bhc8h8sh8bh8bh8h8sbh8h8bh8h8sh8 

bh8bh8h8sbh8h8bh8h8sh8bh8bh8h8sbh8h8bh8h 

8sh8bh8bh8h8sbh8h8 

580 R2$=" bh8h8sh8bh8bh8h8sbh8h8bh8h8sh8b 

h8bh8h8sbh8h8bh8h8sh8bh8bh8h8sbh8h8bh8h8 

Sh8bh8bhc4bh8h8 

590 Pl$=" rcrcrcrcrcrcrcrc 

600 P2$="rcrcrcrcrcrcrc 

610 PLAY#2. Al$, Bl$. CIS, Dl$, El$, Fl$. Rl$. P 

1$ 

620 PLAY#2. A2$. B2$. C2$. D2$. E2$. F2$. R2$, P 

2$ 

630 " 

640 ' C part 

650 Al$="o518bab>d4<g>dfg4fe2elfedcd2. r8 

<g8 

660 Bl$=" o618c<a>cf4<a>c<abgb>e4<ege<a>d 

ef ga>cd<gab>cdefg 

670 Cl$=" Uo6ccd<b 

680 Dl$=" llo5agag 

690 El$=" llo5fefd 

700 Fl$=" 1 lo3fed<g2g4. >g8 

710 Rl$="bc4r8b8b4bs4b4r8b8b4bs4b4r8b8b4 

bs4b4r8b8bs8s8bsm8bm8 

720 Pl$="r2rcr2rcr2rcr2c 

730 PLAY#2. Al$. Bl$. Cl$, Dl$. El$, Fl$. Rl$, P 

1$ 

740 ' 

750 ' D part (Segno) 

760 Al$=" 18o6d. el6&e2&e<g>d. e. <g>d. e. <ee 

.fl6&f2.&f2.r8g 

770 A2$ = "a. bl6&b2&bda. b. da. b. de. gl6&g2. & 
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g2. r8g 

780 Bl$="o5132g>cel618<g>ce4<eg>cec<g>e4 

<eg>cl32<a>cdf 18<a>cf4<fa>cfd<a>f4<a>cf 

790 B2$=" 132<b>dgl618<g>dg4<b>dgd<bg>g4< 

b>dgl32<eg>cl618<eg>c4<eg>c<fa>dl6132gag 

2 

800 Cl$="o611cc2c2dc 

810 C2$="<bb>c<a4.b8&b2 

820 Dl$="o511gg2g2>c<18ce5fa>d&d2e2 

830 D2S=" U<gfgl8fe5fag&g282 

840 El$="o511ee2e2ae4.d8&d2 

850 E2$="dded4. f8&f2 

860 Fl$=" lo3c<g>c<g>c<g>cefcfcfcf<a 

870 F2$=" >d<g>d<g>d<g>f <g>c<g>c<gl8f a>d< 



880 Rl$=" bhc8hl6hl6sh8bhl6hl6bh8hl6hl6sb 

h8hl6hl6bh8hl6hl6sh8bhl6hl6bh8hl6hl6sbh8 

hl6hl6bh8hl6hl6sh8bhl6hl6bh8hl6hl6sbh8hl 

6hl6bh8hl6hl6sh8bhl6hl6bh8hl6hl6sbh8hl6h 

16 

890 R2$=" bh8hl6hl6sh8bhl6hl6bh8hl6hl6sbh 

8hl6hl6bh8hl6hl6sh8bhl6hl6bh8hl6hl6sbh8h 

16hl6bh8hl6hl6sh8bhl6hl6bh8hl6hl6sbh8hl6 

hl6bh8hl6hl6sh8bc8bh8hl6hl6h8bh8 

900 Pl$=" rcrcrcrcrcrcrcrc 

910 P2$=" rcrcrcrcrcrcrc 

920 PLAY#2. Al$. BIS. CIS. D1S. E1S. F1S. R1S. P 

1$ 

930 PLAY#2. A2S. B2S. C2S. D2S. E2S. F2S. R2S. P 

2$ 

940 ' 

950 ' E part 

960 Al$="o618d8. el6&e2&e<g>d. e. <g>d. e. ee 

. f 16&f 2&f 1 24&f ee-d4. & 1 32dc<baa-2 

970 A2$="g4. f+4g4a8bl6>c8. &c4&18ccdef412 

8<fgab>cdelfg 

980 Bl$=" 132o5g>cel618<g>ce4<eg>cec<g>e4 

<g>cef<a>cfa<a>cfa4. 132&agfe I40dc<bagf +4 

990 B2$=" 132<b>dgl6&g8&g2. cegl6&g8&g2. cf 

al6&a4.cfab&b4 

1000 Cl$=" Uo6cd2c2cr32r32el6&e4. r32r32< 

bl6&b4. 

1010 C2$-"rlrla2b2 

1020 Dl$=" Uo5gg2g2ar32a32&al6&a4. r32a-3 

2&a-16&a-4. 

1030 D2$="rlrlf2g2 

1040 El$=" Ho5ee2e2ff2e-2 

1050 E2S="rlrld2f2 

1060 FlS="o31c<g>c<g>c<g>c<g>fcfcd2a-2 

1070 F2S=" 1 Kb>cd2e4f8g8 

1080 Rl$="bhc8hl6hl6sh8bhl6hl6bh8hlbhlbs 

bh8hl6hl6bh8hl6hl6sh8bhl6hl6bh8hl6hl6sbh 

8hl6hl6bh8hl6hl6sh8bhl6hlbbh8hl6hl6sbh8h 

16hl6bc8rl6sl6sm8m8bc8rl6sl6sl6sral6m8 

1090 R2$=" rlr2rr8s8bc4rl6sl6sml6ml6bc8s8 

bcl6sl6sml6ml6 

1100 Pl$=" rcrcrcrcrcrc 

1110 P2$="rlr2rr8cr2c 

1120 PLAY#2, Al$. BIS. CIS, Dl$, E1S. F1S. R1S, 

PIS 

1 130 PLAY#2, A2S, B2$, C2S. D2S. E2S. F2S. R2S. 

P2$ 

1140 ' 

1150 ' '1. or '2. or to Coda 

1 1 60 I FA=2THEN 1 290ELSE 1 FA=3THEN 1 500 

1170 ' 

1180 ' r l. 

1190 Al$="o6f+32f32el6&e8&e2. 

1200 Bl$= "o5l 16ceg>c<ceg>c<ceg>c<ceg>c<c 

fa>d<cf a>d<cfa>d<cf a>d<ceg>c<ceg>c<ceg>c 

<ceg>c^cfa>d&d2. 

1210 Cl$="llo6cdcd 

1220 Dl$=" Uo5gaga 

1230 El$=" Uo5efef 

1240 Fl$="llo3c&cc&c 

1250 Rl$=" bc4h4h4h4bh4h4h4h4bc4h4h4h4bh4 

h4h4smh4 

1260 PLAY#2. Al$. BIS, CIS. D1S. E1S, Fl$. R1S 

1270 A=A+1:GOTO250 

1280 ' 

1290 ' '2. 

1300 Al$="o6a-2 

1310 A2$=" rlr2<f2>c4. <b-8>c8. dl61 12&dc<b 

-g2. r8g8 

1320 Bl$=" 132o5a->ce-a-&a-4. <gb->dg&g4. < 

fa->cf &f4. <gb->dg&g4. <fa->cf&f4. <f a->cf & 

14. <b>dgl618<gb>dgdgb 

1330 B2$- ">c<ce-cg<b->d<b->gce-cg<b->e-< 

b->f<a->c<a-132a->ce-a-&a-4.<gb>dg<18fff 

(((( 

1340 Cl$=" 12o6c<b-a-b->cc<bl 

1350 C2$-">cdc<b->cl<bl 

1360 Dl$="§5o61a-.glbfl6g2f.e-16dl6e-2dl 

c.dl6cl6<b2 



1370 D2$=">e-.dl6cl6d2e-.dl6cl6e-2dlc2<t 

2g2 

1380 El$="«5o61f.e-16dl6e-2d.cl6<gl6g2a- 

1 16f8e-f a-8f a->cde-f gl 

1390 E2$=" 12c<b-gga-lg2t2f2 

1400 Fl$="o31a-.a-8g2f. f8e-2d. d8d2<g. g81 

8gb>df 

1410 F2$=" le-. e-8d. d8c. c8<b-. b-8a-. a-8a- 

2 i 8eEES2S£TS 

1420 Rl$=" bc8h8sh8bh8bh8h8sh8h8bh8h8sh8b 

h8bh8h8sh8Ii8bh8h8sh8bh8bh8h8sh8h8bh8h8sh 

8bh8bh8h8sh8bh8 

1430 R2$=" bc8h8sh8bh8bh8h8sh8h8bc8bh8sh8 

bh8bh8h8sh8h8bch8h8sh8bh8bc4rbc8bs8bs8bs 

8bs8bs8bs8bs8 

1440 Pl$-" rcrcrcrcrcrcrcrc 

1450 P2$=" rcrcrcrcrcr2r818ccccccc 1 

I 460 PLAY#2. A1S. BIS. CIS, Dl$. E1S, F1S. R1S, 

PIS 

1470 PLAY#2. A2$, B2S. C2$. D2S. E2S, F2S. R2S, 

P2$ 

1480 A=A+1:GOTO750 ' D. S 

1490 ' 

1500 - Coda 

1510 Al$="o6f+32f32el6&e8&e2. 

1520 Bl$=" o5 1 16ceg>c<ceg>c<ceg>c<ceg>c<d 

gb>d<dgb>d<dgb>d<dgb>d<cfa>c<cfa>c<cfa>c 

<cfa>c<g>cde 132g>cdeg2&g8 

1530 Cl$="llo6c<ba>c 

1540 DlS-"Ilo5«gfg 

1550 El$=" llo5edce 

15o0 Fl$-"llo3c^gf>c 

1570 Rl$ = "bc4h4h4h4bli4h4h4h8b8bh4ti8b8bh4 

Ii8b8bc4 

1580 PLAY#2. Al$. BIS. CIS. D1S. E1S. F1S. R1S 

1590 ' 

1600 ' Dec. 10. 1989 0:03am 
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10 _ MUSIC (1.0. 1. 1. 1. 1.1. 1) :S0UND7.95:S0 
UND6.2:- PITCH (459) :_TRANSPOSE (t-655) :_ T 
EMPER(7) 

11 DIM Afc(15> 

12 FOR 1=0 TO 15 

13 READ AS:AX(I)-VAL("&H"+A$) 

14 NEXT I :N-13 

15 CALL VOICE C0PY(A%.«03) 

16 DATA 6950. 6E61.206F, 2032.0. A. 0.0.6C0. 
67E2. 30. 0. Dl . 54B0. 70. 

100 Al$="vl0tl50o3»53f#c8r8g#8a#. " 

110 Bl$="ll50i53vl0o4f#16rl6fl6rl6f#16rl 

6o8vl0g#2" 

120 Cl$="tl50vl5«06ola#2g#16vl3g#16vl2g# 

16v9cl6v7cl6v5cl6" 

125 C3$="tl50v8«14ole8vl2r8vl4e8r8vl2e8v 

8r8e8v5r8v2 

130 C2$= ,, tl50i06o2c#2cl6vl2cl6v9cl6v7cl6 

v5cl6" 

135 C4$="tl50vl5«52o4cl 

140 Dl$-"tl50v9i06o7f8g#16rl6a#16rl6>c#l 

6<rl6a#16rl6g#16rl6>c#16<rl6g#16 

150 El$ = " L147vl5b8b8ml6ml6b8m8m8b8ml6ml6 

151 E2$="tl47vl5b4r8ml6ral6ml6ml6r8ml6V13 
ml6V10ml6V7ml6 

152 E3$=" tl47vl5b4ml6ml6ml6ml6b8b8ml6ml6 
ml 6ml 6 

153 E4$="tl47vl5b4ml6bl6bl6ml6b8b8ml6bl6 
bl6ml6 

154 E5$="tl47vl5b8b8ml6bl6ml6bl6bl6ml6ml 
6bl6ml6bl6bl6bl6 

160 Fl$="vl5tl47s0mlc8cl6cl6c8cl6cl6c8cl 
6cl6c8cl6cl6" 

161 F2$="v05tl47s9m50c8cl6cl6c8cl6cl6c8c 
16cl6c8cl6cl6" 

170 D2$="«llvl0tl47o8c8cl6cl6cl6cl6c8cl6 
Cl6cl6cl6c8cl6cl6 

180 D3$="il6v8tl50o8g#16rl6vl3g#16rl6vl4 
g#16rl6vl0g#16rl6vl2g#16v8r8g#16vl0g#16r 
16v6g#16 

181 D4$="«06v07tl50o7G#16R16G#16G#4R8G#l 
6R16G#16G#4 

190 Al$=" tl50tl50vl0#63o4a#16r8a#16r8a#l 

6r8a#16r8a#4 

200 A2$="U50tl50vl0t63o4fl6r8fl6r8fl6r8 

116r8r4 

210 A3$=" tl50tl50vl0863o4g#16r8g#16r8g#l 

6r8g#16r8g#4 

220 A4$="tl50tl50vl0«63o4d#16r8d#16r8d#l 

6r8d#16r8d#4 

230 A5$="tl50tl50v08«63o3a#l 

231 A8$="tl50tl50v08«63o4a#l 



240 A6$="tl50tl50v08»63o3g#l 

241 A9$="tl50tl50v08t63o4g#l 

250 Bl$="tl47«53o3vl3r4a#8o8vl4a#8" 
260 B2$="tl47t53o3vl3r4g#8o8vl4g#8" 

280 B4$="tl50vll«05o4f2f#16fl6al6a#16>c4 

281 BE$="tl50vl0i05o4fl 

282 BF$="tl50vl0t05o5c#2 

290 B5$=" tl50vl3t05o5c#2cl6c#16el6c#16c4 
300 B6$="tl50vl3«05o4a#16>c#16<a#16al6a# 
16al6f #16a#16f #16f4. & 

310 B7$="tl50f05o4v2fl6fl6v5fl6fl6v9fl6f 
16vl0fl6v7fl6v8fl6v9fl6v08fl6v09fl6vl0fl 
6vllfl6vl2fl6" 

311 I7$="tl50»03o4v2fl6fl6v5fl6fl6v9fl6f 
16vl0fl6v7fl6v8fl6v9f 16v08fl6v09f 16vl0f 1 
6vllfl6vl2fl6" 

320 B8$-"tl50vl3e05o4fl6f#16al6a#16>c#16 

<a#16alba#16a8f#16albf#8f8 

330 BA$="tl50vl3i05o4fl6f#16al6a#16al6a# 

16al6>cl6<a#16albf#16f4& 

340 B9$="tl50v07«05o5cl6c#16d#4c#16d#16c 

#16d#lbc#lbd#16c#16d#8 

350 BB$="tl50v07e05o5c#2cl6cJ»16cl6c#16cl 

bc#lbclbc#16 

360 BC$="U50v09e05o4a#2al6a#16al6a#16al 

6f#lbf8" 

370 Hl$="tl47vl3S05o4fl6f#16al6a#16>cl6c 

#16d#16c#16d#16c#16cl6<a#16>c#16<a#16al6 

a#16 

380 H2$="tl47vl0805o4a#8f#16fl6f#16fl6f# 

16fl6f#16fl6al6a#16al6a#16al6a#16 

390 H3$="tl47vl3«05o4al6a#16>cl6c#16d#16 

fl6f #16g#16f #16g#16f4. &" 

400 H4$=" tl47vl0«05o5f 2f #16al6aff 16al6f #1 

6al6a#16al6 

410 H5$=" tl47vl3«05o5a#16>cl6<a2>d#16c#l 

6cl6<a#16>c#16cl6 

420 H6$="tl47vl3«05o5a#16al6>cl6<a#16al6 

f#16f2& 

430 H7$="tl47v08«05o4f2fl6al6a#16al6a#16 

al6a#16al6 

440 H8$="tl47v08»05o4a#16al6a#16>cl6c#16 

<al6a#16>c#16cl6c#16cl6d#16c#16d#16c#16c 

16 

450 H9$="tl47v08«05o5d#8c#16d#16c#16cl6< 

a#16>cl6<a#16al6f#16al6f#16f8. 

460 HA$= " 1 1 47v08i05o4f 8f #8a8a#8>c 1 6r 1 6c 1 

6rl6cl6rl6c#8 

470 HB$="tl47v08t05o5c8<a#8a8f#8f2 

480 HC$="tl47v08«05o5fl6f#16al6a#16>cl6r 

16cl6<a#16al6a#16>cl6<a#16al6f#16f8 

490 HD$="tl47v07t05o4fl6f#16al6a#16>cl6r 

16cl6<a#16al6a#16>cl6<a#16al6f#16f8 

500 Gl$="tl47v09i03o5cl" 

510 G2$="tl47v09«03o5cl6c#16f2." 

520 G3$="tl47v09#03o5fl6f#16>c2." 

530 G4$=" tl47v09i03o5a#16>cl6<f 2. 

540 G5$-"tl47v09#03o5fl6f#16c2. " 

550 G6$="tl47v09«03o5f 16f#16a#2. " 

560 G7$-"tl47v09i03o5a#16>cl6c#16c2. " 

570 G8$="tl47v09«03o5>c#16fl6f2. " 

590 G9$="tl47v09«03o5>c#16f 16c#16c2. " 

600 GA$="tl47v09i03o5>c#16fl6c#16c2. 

610 GB$="tl47v09t03o5d#16fl6c2. 

620 GC$="tl47v09S03o5>cl6c#16f2. " 

630 GD$-"tl47v09t03o5>gl6fl6c#2. 

640 GE$="tl47v07t03o5>cl 

650 GF$="tl47v08»03o4fl 

660 Jl$="tl50tl50v=n;«63o4a#16r8a#16r8>c 

16r8cl6r8<a#4 

670 J2$="tl50tl50v=n:«63o4fl6r8fl6r8a#16 

r8a#16r8f4 

680 J3$="tl50tl50v=n;863o4g#16r8g#16r8f# 

16r8f#16r8g#4 

690 J4$="tl50tl50v=n;«63o4d#16r8d#16r8d# 

16r8d#16r8d#4 

700 J5$="tl50tl50vl0«63o4R4R8F8A#16A#16F 

8G#16G#16F16 

710 J6$="tl50U50vl0»63o4R4R8A#16A#16G#8 

>C#8C4 

720 J7$="tl50tl50vl2t63o4R4R8F16F16G#8Fl 

6F16G#4 

730 J8$="tl50tl50vl0«60o3a#l&a#r 

740 J9$="tl00tl50vl2«60o2fl&fl" 

750 JA$="t50tl50v08«60ola#l&a#l 

999 PLAY#2. " rl" ,"","", •• » , •'" , "" . " •■ 

1000 PLAY#2. " "," "."".""."".""."".F1S.F 
i * Fl $ 

1010 FOR 1=1 TO 2:PLAY#2," "." ","*,""," 

"."".E2$.F1$.F1$.F1$ 

1020 PLAY#2," "." ".""."".""."".E5$.F1$, 

F1$.F1$:NEXT I 

1030 FOR 1=1 TO 4:PLAY#2.C1$.C3$.D2$."". 

'•"."".EIS.FIS.FIS.FIS 

1040 PLAY#2." ","".D2$."".""."",E1$.F1$, 



158 ^ l ;x-T--<7 r a>-r^ t 



<7'Ji-t^H>t7S 



. C3$, D2$, D3$, "","", E2$, Fl$ 
. "".D2$.D3$, ""."". E4$.F1$, 
,"",E5$,F1$ 



,E2$.F1 
E1S.F1 
, E2S.F1 
',E1$.F 
',E2$.F 



F1$.F1$ 

1050 PLAY#2. 

.F1$,F1$ 

1060 PLAYS2."", 

F1$,F1$:NEXT 1 

1070 PLAY#2,C1$.C3$,D2$. 

.F1$,F1$ 

1080 FOR 1=1 TO 2:PLAY#2,A1$.A2$,D3$,A5$ 

.•"•,"",E1$.F1$,F1$.F1$ 

1090 PLAY#2. A5$, C3$. J5$. D3$, " " . " ' 

$.F1$,F1$ 

1 100 PLAY#2. A2$. A3$. D3$. A6$, " " . " ' 

$.F1$,F1$ 

1 110 PLAY#2, A6$, C3$, D3$, J5$. "" . "' 

$.F1$.F1$ 

1120 PLAY#2.B1$,B2$.A5$.A8$.D3$.' 

1$.F1$,F1$ 

1130 PLAY#2, Bl$. B2$. A6$. A9$. D3$. 

1$.F1$.F1$ 

1140 PLAY#2. B7$. A5$, A8$. D3$, Al$, A2$. El$, 

F1$,F1$,F1$ 

1 150 PLAY#2. B7$. A6$, A9$. " " . A5$, C3$. El$, F 

1$,F1$.F1$ 

1160 PLAY#2. B7$. A5$. A8$. BE$, A3$, A4$. El$. 

F1$.F1$.F1$ 

1170 PLAY#2. B7$. A6$, A9$. BE$, B4$, C3$. El$, 

F1$,F1$,F1$ 

1180 PLAY#2, BF$. A5$, A8$, D3$, B5$. B7$, El$, 

F1$.F1$.F1$ 

1 190 PLAY#2. BE$. A6$. A9$. D3$, B6$, B7$. El$, 

F1$,F1$.F1$ 

1200 PLAY#2, BE$, A5$, A8$, D3$. B8$, B7$, El$, 

F1$.F1$,F1$ 

1210 PLAY#2, BE$, A6$, A9$, D3$. B9$. B7$. E4S. 

F1$,F1$.F1$ 

1220 PLAY#2. BE$. A5$. A8$. D3$. BA$. B7$. El$, 

F1$,F1$,F1$ 

1 230 PLAY#2 . BE$ . A6$ , A9$ . D3$ . BBS . B7$ , E2$ . 

F1$,F1$.F1$ 

1240 PLAY#2," ",A5$.A8$,D3$.BC$.B7$,E3$, 

F1$,F1$.F1$ 

1250 PLAY#2,A1$,A2$.D3$.A5$.D4$. 

1$,F1$,F1$ 

1260 PLAY#2. A5$, C3$. J6$. D3$. " " , " 

$.F1$,F1$ 

1270 PLAY#2.A2$.A3$.D3$.A6$.D4$. 

1$.F1$.F1$ 

1280 PLAY#2. A6$. C3$. D3$. J6$. " " . "' 
$.F1$.F1$ 

1281 PLAY#2.B1$,B2$.A5$.A8$.D3$. 
1$.F1$.F1$ 

1282 PLAY#2. BIS, B2$, A6$. A9$. D3$. 
1$.F1$,F1$ 

1283 PLAY#2, B7$, A5$, A8$. D3$, Al$, A2$. El$. 
F1$,F1$.F1$ 

1284 PLAY#2. B7$, A6$. A9$. " " , A5$. C3$. E5$. F 
1$.F1$,F1$ 

1285 PLAY#2, B7$, A5$, A8$, BE$, A3$. A4$. El$. 
F1$.F1$,F1$ 

1290 PLAY#2, B7$. A6$. A9$, BE$. B4$. C3$. El$. 

F1$,F1$,F1$ 

1300 PLAY#2, BE$, A5$, A8$. D3$. Hl$. B7$, El$, 

F1$,F1$.F1$ 

1310 PLAY#2. BE$. A6$. A9$. D3$, H2$. B7$. El$, 

F1$,F1$.F1$ 

1320 PLAY#2, BE$. A5$. A8$. D3$. H3$, B7$. El$. 

F1$.F1$.F1$ 

1 330 PLAY#2 . BE$ , A6$ , A9$ .03$, B9$ , B7$ , E2$ . 

F1$,F1$.F1$ 

1340 PLAY#2, BE$, A5$. A8$. D3$. H6$, B7$. El$. 

F1$.F1$,F1$ 

1350 PLAY#2. BE$. A6$. A9$. D3$. BBS, B7$, E2$. 
F1$.F1$,F1$ 

1351 PLAY#2, BE$, A5$. A8$, D3$. BC$, B7$, E3$. 
F1$,F1$,F1$:NEXT I 

1360 PLAY#2. Al$. A2$. D3$. A 5$. " " . " 

$.F1$.F1$ 

1370 PLAY#2. A5$. C3$. " " , B3$. ""","" 

,F1$,F1$ 

1380 PLAY#2. A2$, A3$, D3$. A6$. " " . " 

$,F1$,F1$ 

1390 PLAY#2, A6$, C3$. D3$, "'" , "" . "" 

,F1$,F1$ 

1400 PLAY#2.B1$,B2$,A5$,A8$,D3$, 

1$.F1$.F2$ 

1410 PLAY#2. Bl$. B2$. A6$, A9$. D3$. " " , El$, F 

1$,F1$.F2$ 

1420 PLAY#2, 17$, A5$.A8$.D3$.A1$.A2$.E1$, 

F1$,F1$.F2$ 

1430 PLAY#2. I7$,A6$.A9$,"",A5$.C3$,E1$,F 

1$,F1$,F2$ 

1440 PLAY#2. Gl$, A5$, A8$, BE$. A3$. A4$. El$. 

F1$.F1$.F1$ 

1450 PLAY#2, G2$, A6$. A9$, BE$, H7$. GF$, El$, 

F1$,F1$,F1$ 



'.E1$,F 
E4$,F1 

'.E1$,F 
E4S.F1 
,E1$,F 

'.E4$,F 



'.E1$.F1 
, E1$,F1$ 
' ,E1$.F1 
E1$,F1$ 
'".E1$,F 



1460 FOR D=l TO 2:PLAY#2, G3$, A5$. A8$, D3$ 

. H8$. BE$, El$, Fl$, Fl$, Fl$ 

1470 PLAY#2. BE$, A6$, A9$, G4$. H9$. GF$, El$, 

F1$,F1$,F1$ 

1480 PLAY#2. BE$, A5$. A8$, D3$. HAS. G5$. E2$. 

F1$,F1$.F1$ 

1490 PLAY#2, G6$, A6$. A9$, BE$. HB$. GF$. El$. 

F1$.F1$.F1$ 

1500 PLAY#2, BE$. A5$. A8$. D3$. HC$. G7$. E3$. 

F1$.F1$.F1$ 

1510 PLAY#2, G8$. A6$, A9$, BE$, HD$, GF$. El$, 

F1$.F1$,F1$ 

1520 PLAY#2. BE$, A5$, A8$, D3$. HC$. G9$, El$. 

F1$,F1$.F1$ 

1530 PLAY#2, GAS, A6S, A9S, BES. B8S. GFS. E4$, 

F1$.F1$,F1$ 

1540 PLAY#2, BES, A5$, A8S, D3S. B9S, GB$. El$, 

F1$,F1$.F1$ 

1550 PLAY#2, GCS, A6S, A9S, BES, BAS, GFS, E2S, 

F1$,F1$,F1$ 

1560 PLAY#2, BES, A5S, A8$, D3$. BBS, GD$. El$. 

F1$.F1$,F1$ 

1570 PLAY#2. GE$, A6$. A9$. BES. BC$, GF$, E4$, 

F1$,F1$,F1$:NEXT D 

1580 PLAY#2. Al$, A2S, D3S. A5S. G1S, " " . E1S, F 

1$,F1$,F1$ 

1590 PLAY#2. A5S. C3S. " " , D3S, G2S. " " , E3S, Fl 

$,F1$,F1$ 

1600 PLAY#2. A2S. A3S, D3S, A6S. G3S. " " . E1S, F 

1$,F1$.F1$ 

1610 PLAY#2. A6S. C3S. D3S. " * . G4$. "" . El$, Fl 

S.FIS.FIS 

1620 PLAY#2. Bl$, B2$, A5S, A8$. D3S, G5$. E2$. 

F1$,F1$,F1$ 

1630 PLAY#2. BIS. B2S. A6S. A9$. D3S. G6S. El$. 

FIS.FIS.FIS 

1640 PLAY#2. GFS. A5$. A8$. D4$. G7$. 17$, E2$, 

F1$,F1$,F1$ 

1650 PLAY#2. J7S. A6$. A9$, D3S..G8S. 17$, El$, 

F1$.F1$,F1$ 

1660 PLAY#2. GF$, A5$. A8$, D4$. G9$, 17$. E2S. 

F1$.F1$,F1$ 

1670 PLAY#2, J5$,A6$.A9$.D3$,GA$, I7$,E1$, 

F1$,F1$,F1$ 

1680 PLAY#2.GF$.A5$.A8$,D4$.GB$. I7$.E2$. 

F1$.F1$.F1$ 

1690 PLAY#2. J5$. A6$. A9$. D3$. GC$. 17$. E1S. 

F1$.F1$,F1$ 

1700 PLAY#2.GF$.A5$.A8$.D4$.GD$, I7$.E2$. 

F1$,F1$,F1$ 

1710 PLAY#2. J7$.A6$,A9$.D3$.GE$. I7$.E1$, 
F1$.F1$.F1$ 

171 1 C3$=" tl50v=n ; tl4olE8r8E8r8E8r8E8r8 

1712 El$="tl47v=n;b8b8ml6ml6b8m8m8b8ml6m 
16" 

1713 E2$="tl47v=n;b4r8ml6ml6ml6ml6r8ml6m 
16ml6ml6 

1714 E5$="tl47v=n;b8b8ml6bl6ml6bl6bl6ml6 
mlbbl6ml6bl6bl6bl6 

1715 D3$="«16v=n;tl50o8g#16rl6g#16rl6g#l 
brl6g#16rl6g#16r8g#16g#16rl6g#16 

1717 A5$="tl50tl50v=n;«63o3a#l 

1718 A6$-"tl50tl50v=n;«63o3g#l 

1719 D3$="«16v=n;tl50o8g#16rl6g#16rl6g#l 
6rl6g#16rl6g#16r8g#16g#16rl6g#16 

1720 FOR N=12 TO STEP -2:PLAY#2. Jl$. J2 
$,D3$.A5$." ","",E2$,F1$ 

1730 PLAY#2.A5$.C3$."",D3$." "."".E1$.F1 

$ 

1740 PLAY#2, J3S. J4S, D3S. A6S. " "."".E2S.F 

1$ 

1750 PLAY#2.A6$.C3$."",D3$." "."".E5$:NE 

XT N:N=0 

1760 PLAY#2. A5$, C3$. ""."',**,",*" 

1761 A6$="tl50tl50tv0t63o3g#l 
1770 PLAY#2.A6$." - i »» > -- i — -- -« 
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ORIGINAL 

T772 k<lt\WtlklM*>ii 
KbU **>?' iiU1113- 
Composed by Wants-FM 
(S. Nakano) 



9 _MUSIC(1.0. 1. 1. 1.1.1. 1) 

10 -PITCH (445) 

20 ' Bass (Pedal) Part 

30 B0$-"I 180333V15L4Q4O3CDBCE-B-A-E-D-E- 

FD-DAGF" 

40 Bl$=" EEE-E-DDGFEEE-E-DD6G12R2" 

50 BX$'"AB>C<AB-B-FB-" :B2$=BX$+BX$ 



60 B3$=BX$+"A&A6A-12&A-2G&G6C12&C2" 

70 B4$="FGAFGAB->C<BBFB>EDC<B" 

80 B5$="A&A6D12&D2D&D6G12&gr4" 

90 ' 

100 ' 

110 ' Chordl (Acommp) Part -- 

120 C0$="T180ilO5V13Q7L12R2R6DR6F12&F2F2 

C2. &C6E12&E4&E6E12&E2" 
130 C1$="R6DR4D-2E4&E6ER2 R6DR4D-2E4&E6E 
-R2" 

140 CX$="05t6Q4R2R6ER4Rl" :C2$=CX$+CX$ 
150 C3$=CX$+"E4&E6E-&E-2 D4&D6D-&D-2" 
160 C5$=">#35R1R4R6E-&E-4R4" 
170 " 

180 ' Chord2 (Acommp) Part — 
190 A0$="T180t0O4V13Q7L12R2R6AR6>D-&D-2C 
2 <A-2.&A-6>C12&C4&C6<B12&B2" 
200 A1$="R6BR4B-2>C4&C6<BR2 R6BR4B-2>C4& 
C6<BR2" 

210 AX$="t6Q4R2R605CR4Rl" :A2$=AX$+AX$ 
220 A3$=AX$+"C4&C6C&C2 <B-4&B-6B-&B-2" 
225 A5$="»35R1R4R6B&B4R4" 
230 ' Chord3 (Acommp) Part — 
240 E0$=" tl80tlO4vl3Q7L12R2R6ER6B-&B-2B- 
2 F2.&F6A&A4&A6A&A2" 

250 E1$="R6GR4G2A4&A6AR2 R6GR4G2A4&A6A-R 
2" 

260 E2$="t6Q4R2R604BR4Rl Q4R2R6BR4R1" 
270 E3$="R2R6BR4R1 B4&B6A-&A-2 G4&G6E&E2 

275 E5$=">t35RlR4R6F&F4R4" 

280 ' Chord4 (Acommp) Part — 

290 F0$="T18081O4V13Q7L12R2. R6F#&F#2F#2 

C#2.&C#6F&F4&F6F&F2" 

300 F1$="R6ER2.F4&F6FR2 R6ER2. F4&F6FR2" 

310 F2$="«6Q4R2R6GR4R1 R2R6GR4R1" 

320 F3$="R2R6GR4R1 G4&G6F#&F#2 F4&F6R12R 

2" 

330 " 

340 ' Vocal KPSG) 

350 G2$ = "T180O4L12v9El&ElEUEl" 

360 G3$="E1&E1R1R1" 

370 G4$="EUE1D1F2E2" 

380 G5$="E4&E12rl2E&E4r4E4«tE12rl2E-&E-4r 

4" 

390 ' Vocal2(PSG) 

400 H2$="T180O4L12v9C1&C1C1&C1" 

410 H3$="C1&C1R1R1" 

420 H4$="C1&CKA1>D1" 

430 H5$=" C4&Cr 12C&C4r4C4&Cr 12<B&B4r4" 

440 " Vocal3(PSG) 

450 12$="T180O3L12v9B1A-1B1A-1" 

460 13$="B1A-1R1R1" 

470 I4$="AUA1F1G#1" 

480 15$="G4&Grl2f#&F#4r4F4&Frl2F«tF4r4" 

490 ' Drum Part (FM) 

500 [>«$-" T180V138A15H4H!6H12H4H!SOH12H4H 

!6H12H4H!M6H12 H4H I6H12H4H ! S6H12H4H !6H12 

H4HIM6H12" 

505 D1$="C!B4R0C!B12HB6R12S12S12S12 C!B4 

R6CIB12S12S12S12M12M12M12" 

500 D2$-" H4H ! 6H12H4H ! S6H12H4H I6H12H4H 1Mb 

H12 U!B4R6C!B12C!B6R12S12S12S12 HB4R6HB1 

2S12S12S12M12M12M12" 

507 D3$="T180»A15H4H ! 6H12H4H ! S6H12H4H !6H 

12H4HIM6H12 H4H I6H12H4H 1S6H12H4H I6H12H4S 

12S12S12" 

510 " Melody Part 

520 M0$="T180O5V15Q7L12«48G4R4R6<GA6>C E 

-4&E-R12<F#A-6B->C6D- E-6<FG6A-B-6>CC#6E 

- E6<GA6B>C6DE6F" 

530 M1$="»1R6GR4G2G4&G6GR2 R6GR4G2G4&G6G 

R2" 

540 M2$="t53R2A6B>C6DE-4<A-6>C12&C4R4 <R 

2A6B>C6DE-4R2. <" 

550 M3$="R2A6B>C6DE-4<A-6>C12&C4R4 <A6B> 

C6<A-B-6>C&C4<A6B->C6<AB-6>C&C6R12" 

560 M4$=" 05i32E4R4R6C<A6>CR6CR6<A>CR6CR6 

<B6>DR6<B>DR6DR6<B6>DR6<B>DR6R4" 
570 M5$=" •35>C6DE6CD6E4&EC6DE6G&G4R4" 
1000 ' 

1010 PLAY #2.B0$.A0$.C0$.E0$.F0$,M0$.D0$ 
1020 PLAY #2.B1$,A1$.C1$.E1$.F1$.M1$,D3$ 
1030 PLAY #2.B0$,A0$.C0$,E0$.F0$.M0$.D0$ 
1040 PLAY #2.B1$.A1$.C1$.E1$.F1$,M1$.D3$ 
1050 PLAY #2.B2$.A2$,C2$.E2$.F2$,M2$.D0$ 
.G2$.H2$, 12$ 

1060 PLAY #2,B3$,A3$.C3$,E3$,F3$.M3$,D2$ 
,G3$.H3$. 13$ 

1070 PLAY #2,B4$.A4$.C4$.E4$,F4$.M4$.D0$ 
.G4S.H4S. 14$ 

1080 PLAY #2,B5$.A5$.C5$.E5$.F5$,M5$.D1$ 
,G5$.H5$. 15$ 
1090 GOTO 1000 
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